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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

| THE UDA HOST RESIDENT DIAGNOSTIC CAUSES THE EXECUTION OF THE UDA 
AND DRIVE RESIDENT DIAGNOSTIC INDIVIDUAL PROGRAMS AND REPORTS 

| THE RESULTS ON THE PDP=11 CONSOLE TERMINAL OR LINE PRINTER. 

| EXERCISES ALSO PERFORMS TO VERIFY THAT: 


iP THE UDA CAN PROPERLY COMMUNICATE WITH ed PDP-11 PROCESSOR 
AND CAN TRANSFER BLOCKS OF DATA TO AND FROM UNIBUS MEMORY. 


THE UDA AND THE DISK DRIVES CAN COMMUNICATE AND TRANSFER DATA 


2. 
PROPERLY. 
3. THE DISK DRIVES CAN FUNCTION PROPERLY AS DEFINED BY THE SDI. 
4. THE DISK DRIVES CAN SEEK, READ AND WRITE TO ALL BLOCKS ON THE 
DISK AND ALLOW THE MEASUREMENT OF THE DRIVES’ PERFORMANCE IN 
A RATIO OF ERRORS PER MILLION BITS TRANSFERRED. 


THE UDA HOST RESIDENT aor 4 CONSISTS OF ONE PDP-11 eee 


SUPERVISOR PROGRAM THAT RUNS IN THE PDP=-11 PROCESSOR AND F 

PROGRAMS THAT RUNS IN THE UDA'S BUFFER MEMORY THROUGH AN INTER~ 

PRETER CALLED THE ‘DIAGNOSTIC MACHINE'’ WHICH RESIDES IN a UDA. THE 
PDP-11 PROGRAM MAINLY IS RESPONSIBLE FOR DOWNLINE LOADING THE 
"DIAGNOSTIC MACHINE'’ PROGRAMS INTO THE UDA AND STARTING Li EXECU- 
TION. THE ‘DIAGNOSTIC MACHINE** PROGRAM CONTROLS THE TESTING FROM 
THAT POINT BY REQUESTING THE PDP-11 PROCESSOR TO SUPPLY INFORMATION 
PRINT ERROR MESSAGES AND UPDATE STATISTICS. THE ‘DIAGNOSTIC MACHINE‘ 
PROGRAM INFORMS THE PDP-11 PROCESSOR WHEN A TEST IS COMPLETE. 


THE NUABER OF UDAS AND DISK DRIVES THAT CAN BE TESTED AT ONE TIME BY 
THIS DIAGNOSTIC PROGRAM IS LIMITED BY THE PDP-11 MEMORY SI 
WITH THE MINIMUM MEMORY SIZE OF 28K WORDS, AT LEAST TWO UDAS” WITH FOUR 
DISK DRIVES EACH ARE SELECTABLE. THE NUMBER OF UDAS AND DISK 
DRIVES SELECTABLE BY THE DIAGNOSTIC INCREASES WITH ADDITIONAL 
ety ally BUT THERE IS NO GOAL IMPLIED FOR THE MAXIMUM POSSIBLE CONF IGU- | 
< 
| 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES od | 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE co OF THE RUNTIME SERVICES, REFER 

TO THE XXDP+ USER'S MANUAL. E IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION a OF THIS DOCUMENT. | 


1.2 SYSTEM REQUIREMENTS 


THIS PROGRAM WILL BE DESIGNED USING THE PDP-11 SUPERVISOR REVISION C. 
RUN TIME ENVIRONMENTS ARE DETERMINED BY THE SUPERVISOR AND MAY CHANGE 
AS NEW VERSIONS OF THE SUPERVISOR ARE DEVELOPED. THE INITIAL VERSION 

WILL REQUIRE THE FOLLOWING: 





' 


USE 


| 


' 
' 
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PDP=11 PROCESSOR 
28K WORDS OF MEMORY (MINIMUM) 
XXDP+ LOAD MEDIA 

ONE A_SUB-SYSTEMS 


OR MORE UDA 
LINE CLOCK = EITHER TYPE L OR P 
THE LINE CLOCK WILL BE USED FOR ALL TIMED LOOPS IN THE PROGRAM. THE 
DIAGNOSTIC WILL RUN ON A SYSTEM WITH NO CLOCK BUT WILL HANG WHENEVER 
AN EVENT FOR WHICH THE PROGRAM IS WAITING DOES NOT HAPPEN (1.E., A 
TIME-OUT ERROR MESSAGE WILL NOT RESULT). 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE f opete gl RUNT IME [oe 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT ‘JAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE oe so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘START’ 


IF SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"'. 


SWITCH EFFECT 
/TESTS:LIST pecure ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - eresisz' 1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 


SEQ 0004 


-_-- 


i 
1 


| 
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/PASS : DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS Reactin’ ss FLAGS ARE DESCRIBED 
/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS: 1000/E0OP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE °'/TES:1-5°' INSTEAD OF ''/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


ee FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE fy ig ee FLAGS 


UN 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 


FLAG EFFECT 

HOE HALT ON ERROR ~- CONTROL 2 RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL. ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


SEQ 0005 


a 
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IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’ ! 

PRI ty MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL'’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL"’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) ?°' 
YOU MUST ANSWER ‘'Y’* AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED’* USING THE SETUP UTILITY (SEE 
CHAPTE.2 6 OF THE XXDP+ USER*S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘'Y’’, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


THE PROGRAM WILL 28 THE FOLLOW'NG QUESTIONS IN RESPONSE TO A START 
COMMAND (NON-SCRIP 


CHANGE HW? 


ANSWER NO TO USE THE PRE-BUILT ANSWERS FOR ALL HARDWARE 
QUESTIONS. THIS PROGRAM WILL BE RELEASED PRE-BUIL: TO TEST 
ONE UNIT WITH THE DEFAULT ANSWERS SHOWN BELOW. THE PRE-BUILT 
ANSWERS MAY BE CHANGED AT ANY TIME WITH THE SETUP UTILITY. 
ANSWER "YES* TO BE ASKED ALL THE HARDWARE QUESTIONS. 


# UNITS (D) ? 


ANSWER WITH THE NUMBER OF UNITS TO BE TESTED (NO DEFAULT). 
THIS ANSWER WILL DETERMINE HOW MANY TIMES THE FOLLOWING 
QUESTIONS ARE ASKED. A UNIT IS A LOGICAL DISK DRIVE ON A UDA. 
1 TO 64 UNITS MAY BE SPECIFIED. 


SEQ 0006 


ey 


s 
¢ 
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UNIBUS ADDRESS OF UDA (0) 172150 ? 


ANSWER WITH THE ADDRESS OF THE UDAIP whe ie OF ONE UDA AS 
wee BY THE PROCESSOR WITH MEMORY MANAGEMENT TURNED OFF 
(15657) EVEN 16-BIT ADDRESS IN THE RANGE OF 169000 TO 


VECTOR (0) 154 ? 


ANSWER WITH THE INTERRUPT VECTOR ADDRESS OF THE UDA. A VECTOR 
ADDRESS IN THE RANGE OF 4 TO 774 MAY BE SPECIFIED. 


BR LEVEL (D) 5 ? 


ANSWER WITH THE INTERRUPT PRIORITY USED BY THE UDA. LEVELS 4 
TO 7 ARE ACCEPTED. 


UNIBUS BURST RATE (D) 0 ? 


THE UDA ALLOWS THE ABILITY TO CONTROL THE MAXIMUM NUMBER OF 
WORDS TRANSFERRED ACROSS THE UNIBUS EACH TIME THE UDA BECOMES 
MASTER. ANSWER WITH THE VALUE YOUR OPERATING SYSTEM we OR 
USE ZERO WHICH WILL TELL THE UDA TO SUPPLY A VALUE. 
DECIMAL NUMBER IN THE RANGE OF 0 TO 63 MAY BE SPECIFIED. THE 
ro WILL BE PASSED DIRECTLY TO THE UDA DURING INITIALIZA- 


DRIVE NUMBER (D) 0 ? 


ANSWER WITH THE —. DRIVE NUMBER ON THE FRONT OF THE 
DRIVE YOU WISH TO TEST. ON A MULTI-UNIT DRIVE, — SUB-UNIT 
NUMBER ON THE DRIVE MUST BE TESTED AS A SEPARATE UNIT TO 
COMPLETELY TEST THE DRIVE. A MAXIMUM OF EIGHT LOGICAL DRIVES 
MAY BE TESTED ON ONE UDA AT A TIME (UDA CONFIGURATION LIMIT). 


EXERCISE ON CUSTOMER DATA AREA IN TEST 4 (L) N ? 


ANSWER NO TO HAVE TEST 4 (DRIVE EXERCISER) RUN ON THE 
DIAGNOSTIC AREA OF THE DISK. ANSWER YES TO RUN ON THE 
CUSTOMER DATA AREA. A YES a WILL apne ANY oe tee 
DATA _THAT MAY BE ON THE DISK. A WARNING SAGE WILL 

PRINTED IF THIS QUESTION IS ANSWERED YES (SEE SECTION : 3). 


2.5 SOFTWARE QUESTIONS 
AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 


OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE P. A TERS WILL GOVERN SOME ee SPECIFIC 


T TYPING 
"*y'"| THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE PROGRAM WILL ASK THE FOLLOWING QUESTIONS IN RESPONSE TO THE START, 


SEQ 0007 


‘ Game 
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RESTART, AND CONTINUE COMMANDS. 
CHANGE Sw ? 


ANSWER NO TO BYPASS THE FOLLOWING QUESTIONS IN rr SECTION. 
YES ANSWER WILL CAUSE THE QUESTIONS TO BE ASKED AND ALLOW 
THE DEFAULT ANSWERS TO BE CHANGED. 


ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS (L) N ? 


TESTS 2 AND 4 HAVE MANUAL INTERVENTION MODES WHICH ALLOW 
ADDITIONAL PARAMETERS TO BE INPUT TO ALTER THE NORMAL TESTING 
OF A DISK DRIVE. THIS QUESTION SHOULD NORMALLY BE ANSWERED 
NO WHEN THIS DiAGNOSTIC IS FIRST RUN. THEN, DEPENDING ON THE 
ERRORS DETECTED, IT MAY BE DESIRABLE TO CHANGE THIS ANSWER TO 
YES AND ALTER THE TESTING TO FURTHER ISOLATE THE PROBLEM. IF 
THIS QUESTION IS ANSWERED YES, AND THE UAM (UNATTENDED MODE 
OPERATION) FLAG IS SET, TESTS 2 AND 4 WILL PRINT A WARNING 
MESSAGE THAT THE MODE CANNOT RE ENTERED AND WILL PROCEED AS 
IF ANSWERED NO. SEE THE DESCRIPTION OF THE INDIVIDUAL TESTS 
FOR MORE INFORMATION. 


REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY 


THIS INFORMATIONAL MESSAGE IS PRINTED TO ot mee ey THE USE OF 
THE REMAINING QUESTIONS. IF TEST 4 IS NOT BEING RUN, 
"CONTROL Z'' CAN BE TYPED TO BYPASS THEM. 


ERROR LIMIT (D) 32 ? 


ENTER THE NUMBER OF HARD ERRORS ALLOWED BEFORE A os hes Is 
DROPPED FROM EXERCISE BY TEST #4. A NUMBER IN THE RANGE OF 
TO 65535 WILL BE ACCEPTED. 


READ T.2ANSFER LIMIT IN MEGABYTES - 0 FOR NO LIMIT (D) 0 ? 


WHEN THE SPECIFIED NUMBER OF BYTES HAVE BEEN READ FROM A 
DRIVE BY TEST #4, THE DRIVE WILL BE DROPPED FROM TESTING. 
WHEN ALL DRIVES ARE DROPPED, AN END OF PASS WILL BE INDICATED 
AND THE SELECTED TESTS WILL BE RUN AGAIN. THIS IS THE METHOD 
USED TO DETERMINE HOW LONG TEST #4 IS TO RUN. ANSWER WITH 2. 
ZERO TO PREVENT TEST FROM ENDING. THE ONLY OTHER WAY TEST #4 
CAN END iS TO HAVE ALL DRIVES DROPPED BECAUSE THE ERROR LIMIT 
ON EACH IS EXCEEDED. OF COURSE. THE OPERATOR CAN ALWAYS STOP 
TEST #4 BY TYPING A CONTROL-C. =i 


SUPPRESS PRINTING SOFT ERRORS (L) Y? 


WHEN TEST #4 NEEDS TO PERFORM RETRIES, SOFT ERROR REPORTS 
WILL BE PRINTED TO Sock MUCH INFORMATION AS POSSIBLE. 


ED NORMAL OPERATION AND ARE 
ERROR CONDITIONS UNTIL THE RETRIES FAIL. WHEN THE TEST IS 
BEING RUN ONLY TO SEE HOW RELIABLE THE DRIVE PERFORMG, THIS 
QUESTION SHOULD BE ANSWERED YES SO THEY ARE NOT CONF USED WITH 
HARD ERRORS. THE NUMBER OF THESE SOFT ERRORS IS ALWA 
REPORTED IN THE STATISTICAL REPORT. ANSWER NO TO SEE ALL THE 
SOFT ERROR REPORTS. 
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DO INITIAL WRITE ON START (L) ¥ ? 


IF TEST #4 IS TO DO DATA COMPARES, THE DRIVE WILL NEED TO BE 
WRITTEN WITH DATA PATTERNS READABLE BY THE PROGRAM. 


IF THE DIAGNOSTIC AREA IS SELECTED FOR TESTING, THE INITIAL 
ly § i ALWAYS PERFORMED (REGARDLESS OF HOW THIS QUESTION IS 


IF THE CUSTOMER DATA AREA IS SELECTED FOR TESTING, THE 
so fies WRITE WILL BE PERFORMED WHEN ALL OF THE FOLLOWING ARE 


1. THIS QUESTION IS ANSWERED YES. 


2. THIS IS THE FIRST TIME TEST #4 IS BEING RUN AFTER A 
START COMMAND. 


3. THE DISK IS WRITE ENABLED. 


ANSWERING THIS QUESTION NO WHEN TESTING ON THE CUSTOMER DATA 
AREA WILL NORMALLY RESULT IN DATA COMPARISON ERRORS IF THE 
HR Bd PREVIOUSLY WRITTEN BY THIS DIAGNOSTIC OR THE 


— NOTE THAT WRITE CHECKS ARE NOT PERFORMED DURING THE INITIAL 


ENABLE ERROR LOG (L) N ? 


A YES ANSWER WILL CAUSE ERROR MESSAGES IN TEST #4 TO BE 
STORED IN A LOG BUFFER. ONCE THE LOG BUFFER IS FULL, ADDI- 
TIONAL ERROR INFORMATION IS LOST. THE CONTENTS OF THE LOG 
i, WILL BE PRINTED WHEN TEST #4 IS STOPPED AND A STATIS- 
TICAL REPORT REQUESTED. THIS LOG FEATURE IS INTENDED TO ALLOW 
THE DIGITAL DIAGNOSIS CENTER (DDC) TO START TEST #4 THEN HANG 
UP FROM THE SYSTEM AND LET IT RUN FOR SOME PERIOD OF TIME. 
DDC CAN CALL THE SYSTEM BACK LATER, TYPE CONTROL-C, THEN 
PRINT AND SEE THE ERRORS THAT HAVE OCCURRED (UP TO THE LIMIT 
OF THE LOG BUFFER). A MESSAGE WILL BE PRINTED TO INDICATE NO 
ERRORS HAVE OCCURRED IF THE LOG BUFFER IS EMPTY. TEST #4 WILL 
NOT BE ALLOWED TO END WHILE THE ERROR LOG IS ENABLED EVEN 
THOUGH TESTING MAY ACTUALLY STOP. THE LOG BUFFER WILL HOLD A 
MINIMUM OF 30 ERROR MESSAGES. 


2.6 EXTENDED P-TABLE DIALOGUE 


THE FOLLOWING WARNING WILL BE PRINTED IN RESPONSE TO A START COMMAND 
IF ANY DRIVE IS SELECTED FOR TESTING ON THE CUSTOMER DATA AREA, THE 
pop ee APPEAR IMMEDIATELY AFTER THE SOFTWARE QUESTIONING IS 


CUSTOMER DATA WILL BE DESTROYED ON: 


* SEQ 0009 


a ea . ! 
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UNIT UDA AT DRIVE 
XX YOOO00X XXX 


UNLESS THE DIAGNOSTIC IS BEING RUN _IN eee ae MODE (E.G., 
START/FLAG:UAM TO SUPERVISOR PROMPT), A CONFIRMATION WILL ALSO BE 
REQUIRED AS FOLLOWS: 
| 


ARE YCJ SURE CUSTOMER DATA CAN BE DESTROYED (L) ? 


IF THE ABOVE QUESTION IS ANSWERED NO, THE ENTIRE DIAGNOSTIC WILL STOP | 
AND THE SUPERVISOR PROMPT WILL BE DISPLAYED. NO DEFAULT ANSWER IS | 
PROVIDED FOR THIS QUESTION. oy | 
2.7 QUICK START-UP PROCEDURE (XXDP+) ~ 
TO START-UP THIS PROGRAM: ih 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 5OHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


| 
| 
| 
| 
4. TYPE ‘'START* | | 
5. ANSWER THE “CHANGE HW/'’ QUESTION WITH "‘Y'! | 
ANSWER ALL THE HARDWARE QUESTIONS | 
| 
| 
| 
| 
i 
| 


- 


ANSWER THE ‘'CHANGE SWwW’’ QUEST'ON WITH ‘N"' 


“— 
* 


} 

WHEN YJU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY | 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER’’ Ae IS SET (SECTION 2.3). ‘ 
THE GENERAL ERROR MESSAGE IS OF THE FORM | 

| 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


DIAGNOSTIC NAME 
ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
ROR NUMBER 


NUMBE 
UNIT NUMBER = 0 - N (N _IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


- WHERE ; 
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BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE A» OR. THESE ARE ALWAYS PRINTED UNLESS 
THE ‘“IER'' OR ‘‘IBR'’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN Coe oa ERROR agate 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE ‘‘IER’', ‘‘IBR’* OR ‘‘IXR’' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


4.0 PERFORMANCE AND PROGRESS REPORTS 

A STATISTICAL REPORT WILL AUTOMATICALLY BE PRINTED PERIODICALLY 
(APPROXIMATELY EVERY SEVENTEEN MINUTES) AND AT THE END OF TEST #4. IT 
CAN BE SUPPRESSED BY SETTING THE INHIBIT STATISTICAL REPORT FLAG (E.G. 
START/FLAGS: ISR). THIS IS THE SAME REPORT THAT CAN BE PRINTED ON 
DEMAND WITH THE PRINT COMMAND. 


DURING TEST 1, 2, AND 3, THE REPORT WILL LOOK LIKE THE FOLLOWING 
EXAMPLE : 


DURING TEST #4, THE REPORT WILL CONTAIN STATISTICS ON EACH DRIVE FOR 
THE CURRENT PASS OF THE TEST; FOR EXAMPLE: 


TEST 4 IN PROGRESS RUN TIME 2:24:10 


UNIT DRIVE SERIAL-NUMBER SEEKS MBYTES MBYTES HARD SOF T ECC 
READ WRITTEN ERRORS ERRORS 
0 0 1002 12000 36 22 0 0 


1 
1 4 67342102112 14000 42 29 0 2 0 


5.0 TEST SUMMARIES 
TEST # 1 - UNIBUSS ADDRESSING TEST 


THE PURPOSE OF TEST #1 IS TO COMPLETE THE TESTING OF THE UNIBUS 
INTERFACE IN THE UDA. THE UDA RESIDENT DIAGNOSTIC IS NOT ABLE TO 
COMPLETELY TEST THE UNIBUS INTERFACE BECAUSE COMMUNICATION WITH THE 
PDP-11 PROCESSOR IS NECESSARY. SPECIFICALLY, THIS TEST WILL: 


1. CHECK THAT EVERY ADDRESS LINE ON THE UNIBUS CAN BE 
DRIVEN TO BOTH ONE AND ZERO STATES. 


£ CHECK THAT THE UDA CAN INTERRUPT THE PDP-11 PROCESSOR 
AT THE PROPER PRIORITY LEVEL AND VECTOR. 


EXERCISE THE UNIBUS INTERFACE BY TRANSFERRING BLOCKS OF 


TEST 1 IN PROGRESS RUN TIME 2:24:10 
3. 
DATA TO AND FROM UNIBUS MEMORY. 


THIS TEST ASSUMES THAT THE FOLLOWING ARE BEING TESTED BY THE UDA 
RESIDENT DIAGNOSTIC: 





SEQ 0011 


-——— 


RS 
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| 
| 
| 


1. ALL DATA BITS CAN BE WRITTEN AND READ CORRECTLY. 
2. NPR CYCLES CAN BE EXECUTED CORRECTLY. 
one AT A TIME, EACH UDA SELECTED FOR TESTING WILL BE INITIALIZED AND 


MOST UNIBUS ADD 
BLE. INTERRUPTS WILL BE DISABLED. ANY UDA RESIDENT DIAGNOSTIC ERRORS 
WILL BE REPORTED. 


THE UDA WILL THEN BE INITIALIZED ealonit THIS TIME WITH INTERRUPTS 
ENABLED. THE VECTOR ADDRESS AND PRIORITY rity WILL THE HARDWARE 


NE THE 
RESULT. A DESCRIPTIVE ERROR oe da OF THE PROBLEM WILL NOT OCCUR (THE 
PROGRAM OR PROCESSOR MAY HANG OR AN UNRELATED MESSAGE MAY OCCUR). 
THEREFORE, THE MESSAGE "TESTING INTERRUPT ABILITY OF UDA AT ADR XXXXXX 
VEC XXX..." WILL BE PRINTED JUST BEFORE THE UDA IS Sg TO CAUSE 
AN INTERRUPT AND THE WORD ‘‘COMPLETED'' WILL BE PRINTED (ON THE SAME 
LINE) WHEN THE INTERRUPT TEST IS COMPLETED. IF THE WORD ‘‘COMPLETED’’ 
DOES NOT FOLLOW THE FIRST MESSAGE, IT SHOULD BE APPARENT THAT THE 
INTERRUPT CAUSED THE DIAGNOSTIC OR PROCESSOR TO GO ASTRAY. THE 
PRIORITY LEVEL OF THE INTERRUPT REQUEST WILL ALSO BE VERIFIED. 


"DIAGNOSTIC MACHINE’ PROGRAM WILL THEN BE DOWNLINE LOADED IN THE UDA 
FROM THE MEMORY SPACE INCLUDED IN THE HOST COMMUNICATIONS AREA WHEN 
THE UDA WAS FIRST INITIALIZED. THE UDA RESIDENT DIAGNOSTIC al ALREADY 


VERIFIED THAT IT CAN ACCESS THESE MEMORY ADDRESSES, SO THE DOWNLINE 
eS oe PERFORM PROPERLY. THE ‘DIAGNOSTIC MACHINE’  ROGRAM 


THE eens MACHINE’ PROGRAM WILL ASK THE PDP-11 ae ee FILL 


LOCATION OF FREE MEMORY WILL BE READ AND THE DATA CHECKED. THEN, ONE 
BY ONE, EACH ADDRESS LINE WILL BE TESTED AS FOLLOWS: 


t, DETERMINE A TEST ADDRESS BY TAKING THE FIRST ADDRESS. ‘OF FREE 
MEMORY AND COMPLIMENTING THE ADDRESS BIT TO BE TESTED. 


2. READ FROM THE TEST ADDRESS. 
3. IF A NON~EXISTANT MEMORY ERROR OCCURRS, THE TEST IS COMPLETE. 
é. WRITE ALL ONES TO THE FIRST ADDRESS OF FREE MEMORY THEN READ 
FROM THE TEST ADDRESS. IF DATA READ IS NOT ALL ONES, THEN 
TEST IS COMPLETE. 
5. WRITE ZEROS TO THE FIRST ADDRESS OF FREE MEMORY THEN READ 
FROM THE TEST ADDRESS. IF DATA READ 1S NOT ZEROS, THEN TEST 
1S COMPLETE. 
6. REPORT UNIBUS ADDRESSING ERROR. 


WHEN ALL ADDRESS BITS HAVE BEEN TESTED, THEN BLOCK TRANSFERS TO AND 
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FROM MEMORY WILL BE TESTED WITH DIFFERENT DATA PATTERNS. THIS DATA 
WILL BE TRANSFERRED AT THE RATE DISK DATA IS TRANSFERRED TO AND FROM 
MEMORY DURING NORMAL UDA OPERATION. 


THE NEXT UDA SELECTED FOR TESTING WILL THEN BE TESTED IN THE SAME 
MANNER. WHEN ALL UDAS HAVE BEEN TESTED, TEST #1 WILL END. 


TEST #2 = DISK RESIDENT DIAGNOSTIC TEST 


THE PURPOSE OF TEST #2 IS TO EXECUTE THE DIAGNOSTICS THAT RUN IN EACH 
DISK DRIVE. THESE DIAGNOSTIC PROGRAMS MAY BE RESIDENT IN THE DISK 
DRIVE OR REQUIRE DOWNLINE LOADING FROM THE XXDP+ LOAD DEVICE. THESE 
DIAGNOSTIC PROGRAMS THAT RUN IN THE DISK DRIVES ARE NOT PART OF THIS 
DIAGNOSTIC PRODUCT, BUT ARE PRODUCED BY THE DISK DEVELOPMENT GROUP. 
THIS UDA DIAGNOSTIC PROGRAM ONLY KNOWS THE PROCEDURE TO EXECUTE THE 
+ Bee peel DIAGNOSTICS AND HOW TO DETERMINE WHETHER A TEST PASSED 


ONE AT A TIME, EACH UDA SELECTED FOR TESTING WILL BE Cooatir AND A 
"DIAGNOSTIC MACHINE'’ PROGRAM DOWNLINE LOADED. THE "DIAGNOST! 

MACHINE’' PROGRAM WILL ASK WHAT DRIVES ARE TO BE TESTED, THEN WILL 
ISSUE SEVERAL ECHO FRAMES TO THE DISK DRIVE AND CHECK FOR THE CORRECT 
RESPONSE FROM THE DRIVE. THIS SHOULD SERVE AS A GOOD INDICATOR THAT 
THE UDA AND DISK DRIVE CAN COMMUNICATE. 


A DIAGNOSE COMMAND WILL THEN BE ISSUED TO THE DRIVE TO REQUEST THE 
DRIVE RUN ALL OF ITS DIAGNOSTICS. IF THE DISK DRIVE REQUESTS A 
DOWNLINE LOAD OF A DRIVE DIAGNOSTIC, THE DIAGNOSTIC PROGRAM WILL BE 
READ FROM THE XXDP+ LOAD DEVICE, DOWNLINE LOAD THE FILE INTO iy DISK 
DRIVE AND START ITS EXECUTION. THERE IS NO LIMIT TO THE NUMBER 
DOWNLINE LOADS THAT CAN BE REQUESTED BY A DRIVE. 


IF "MANUAL INTERVENTION MODE"’ SOFTWARE QUESTION WAS ANSWERED NO 

(DEFAULT) TESTING WILL PROCEED TO THE NEXT DRIVE. WHEN ALL DRIVES ON 
THE UDA HAVE BEEN TESTED, THE NEXT UDA SELECTED FOR TESTING WILL THEN 
. pig A THE SAME MANNER. WHEN ALL UDA'S HAVE BEEN TESTED, TEST 


IF THE “MANUAL INTERVENTION MODE'’ SOFTWARE QUESTION WAS ANSWERED YES, 
AN INTERACTIVE MODE WILL BE ENTERED TO ALLOW THE OPERATOR TO PERFORM 
Lepore ACTIVITIES ON THE DISK DRIVE AS DESIRED. THE SERVICE 
MANUAL FOR THE DISK DRIVE MUST BE USED TO DETERMINE WHAT DIAGNOSTIC 
CAPABILITIES ARE AVAILABLE. 


4 ayy fh BRIEF DESCRIPTION OF AVAILABLE COMMANDS WILL BE PRINTED AS 


TEST #2 MANUAL ee ON UNIT XX UDA AT XXXXXX DRIVE XXX 
TO WRITE AND READ MEMORY 

W DATA REGION OFFSET 

R_ REGION OFFSET 
TO RUN A DIAGNOSTIC: 


D REGION 
TO EXIT QUESTIONING: 
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E 
DATA, REGION AND OFFSET ARE HEX VALUES. 


COMMANDS MAY BE TYPED AFTER THE QUESTION MARK PROMPT. EACH COMMAND 
WILL- BE PROCESSED AS ENTERED AND RESULTS DISPLAYED IMMEDIATELY. THE 
EXIT COMMAND WILL ALLOW THE DIAGNOSTIC TO PROCEED. 


READ AND WRITE COMMANDS WILL REMEMBER THE REGION AND OFFSET VALUES. 
SUCCESSIVE READ AND SUCCESSIVE WRITE COMMANDS WILL AUTOMATICALLY 
INCREMENT TO THE NEXT OFFSET IF THE REGION AND OFFSET VALUES ARE NOT 
‘ase IF A REGION IS TYPED BUT NOT AN OFFSET, OFFSET ZERO WILL BE 


ONE TO FOUR BYTES OF DATA MAY BE ENTERED BY A SINGLE WRITE COMMAND, 
DEPENDING ON THE NUMBER OF DIGITS TYPED IN THE HEX VALUE. A READ 
COMMAND WILL ALWAYS RETURN FOUR BYTES OF DATA. EXAMPLES: 


1. W FF FFFC 4 
2. w 010203 
3. R FFFC 0004 


FFFC 0004/ FF 01 02 03 
W FOFIFOF3 FFFC 


R 
FFFC OO00/ FO F1 Fe F3 
FFFC 0004/ FF 01 02 03 


COMMAND 1 WRITES ONE BYTE (FF) INTO REGION FFFC, OFFSET 4. COMMAND 2 
WRITES THREE BYTES (01, 02 AND 03) INTO THE SAME REGION WITH OFFSETS 
5, 6 AND 7. COMMAND 3 READS FOUR BYTES STARTING AT REGION FFFC OFFSET 
4. COMMAND 4 WRITES FOUR BYTES AT REGION FFFC OFFSET 0. COMMANDS 5 AND 
6 READ THE EIGHT BYTES. 


THE DI.AGNOSE COMMAND WILL REMEMBER THE REGION FROM namnatit cee 


COMMANDS ONLY 
GENERALLY NOT THE SAME REGION USED TO WRITE PARAMETERS OR READ 
pa THE DIAGNOSTIC RETURNS ANY DATA, THE DATA WILL BE PRINTED 


TEST #3 - DISK FUNCTION TEST 


THE PURPOSE OF De #3 1S TO FUNCTIONALLY TEST THE DISK DRIVE. ON A 
DRIVE THAT IS WELL DIAGNOSED BY ITS DISK RESIDENT DIAGNOSTICS (EXE- 
CUTED BY TEST #2)" THESE FUNCTIONAL TESTS WILL _HAVE LITTLE VALUE. ON A 
DRIVE THAT HAS NO OR MINIMAL RESIDENT DIAGNOSTICS, THESE FUNCTIONAL 
TESTS WILL HAVE MORE VALUE. 


TEST #3 WILL START *. INITIALIZING EACH UDA SELECTED FOR TESTING AND 
THEN DOWNLINE LOAD A ‘DIAGNOSTIC MACHINE*' PROGRAM INTO EACH UDA. ONCE 
ALL UDAS HAVE BEEN STARTED, THE PDP-11 PROGRAM WILL RESPOND TO 
REQUESTS FROM ALL UDAS. WHEN ALL THE UDAS HAVE INDICATED THE END OF 
TESTING, TEST #3 WILL END. 


THE ‘DIAGNOSTIC MACHINE’* PROGRAM WILL PERFORM THE FOLLOWING FUNCTIONS 
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ON EACH DRIVE: ~" 
1. ISSUE A DRIVE CLEAR COMMAND. 
2. ISSUE INITIATE RECALIBRATE COMMAND. 


3. ISSUE A CHANGE MODE COMMAND TO ENABLE DIAGNOSTIC CYLINDER 
ACCESS AND SET THE DRIVE TO 512 BYTE SECTOR SIZE. 


4. ISSUE INITIATE SEEK COMMAND TO LAST DIAGNOSTIC CYLINDER. 


3. READ ALL FACTORY FORMATTED SECTOR HEADERS. IF NO HEADERS ON 
A TRACK CAN BE READ, REPORT THE ERROR, OTHERWISE CONTINUE. 


6. STARTING WITH CYLINDER 0, GROUP 0 AND Wr tearoom THROUGH 
EVERY GROUP ON THE ts SEEK TO THE SELECTED GROUP, READ A 
HEADER ON TRACK 0 AND THEN SEEK TO THE FACTORY FORMATTED 
DIAGNOSTIC CYLINDER. READ FROM THE DIAGNOSTIC CYLINDER TO 
VERIFY DISK POSITIONED CORRECTLY. 
t. ISSUE A CHANGE MODE COMMAND TO ENABLE FORMATTING OPERATIONS. 
8. FORMAT ALL WRITABLE DBNS IN 512 BYTE FORMAT. 
9. WRITE AND READ SEVERAL DATA plies Be hg EACH WRITABLE DBN. 
REPORT AN ERROR IF ALL DBNS ON ONE TRACK HAVE AN ERR 
TEST #4 = DISK EXERCISER 


THE PURPOSE OF TEST #4 IS TO EXERCISE THE DISK DRIVES IN A MANNER 
THIS TEST SHOULD GIVE AN INDICATION OF THE PERFORMANCE OF THE DISK 
DRIVE. THIS TEST MAY BE RUN FOR LONG OR SHORT PERIODS OF TIME, 
DEPENDING ON HOW THE SOFTWARE QUESTIONS ARE ANSWERED. 
THESE ARE TWO MODES OF OPERATION FOR TEST #4: 
1. DEFAULT OPERATION ON THE ENTIRE AREA SELECTED (CUSTOMER OR 
DIAGNOSTIC) WITH ALL PARAMETERS SELECTED FOR RANDOM 
OPERATION AS SHOWN BY DEFAULT ANSWERS BELOW. 


2. MANUAL INTERVENTION MODE WHERE A NUMBER OF QUESTIONS ARE 
ASKED AND OPERATION IS CONTROLLED BY THEIR ANSWERS. 


WHICH MODE IS ENTIRELY DETERMINED BY THE ANSWER TO THE shru SOF TWARE 
QUESTION ASKING, "ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAG- 


TESTING WILL BEGIN IMMEDIATELY. IF ANSWERED YES, THE FOLLOWING 
SERIES OF QUESTIONS WILL BE ASKED FOR EACH UNIT SELECTED FOR TESTING: 


THE FOLLOWING QUESTIONS REFER TO UNIT XX UDA AT XXXXXX DRIVE XXX 


THIS MESSAGE WILL IDENTIFY TO WHICH DRIVE THE ee uae ARE 
BEING ASKED. THE EWTIRE SERIES OF QUESTIONS WILL BE ASKED 
EACH DRIVE, THERE IS NO SHORT WAY TO ANSWER LIKE IN THE 
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HARDWARE QUESTIONS. 
NUMBER OF BAD BLOCKS (D) 0 ? 


AN ANSWER IN THE RANGE OF 7 TO 16 WILL ALLOW THAT MANY BAD 
BLOCK NUMBERS TO BE ENTERED. THE PROGRAM WILL ALLOW WRITES 


WILL BC 

PRINTED FOR THESE BLOCKS. ERRORS ENCOUNTERED ON THESE BLOCKS 
WILL NOT APPEAR IN THE STATISTICS. ANSWER ZERO TO BYPASS 
ENTERING BAD BLOCKS. 
BAD BLOCK (A) ? 

THIS QUESTION WILL BE ASKED THE NUMBER OF TIMES REQUESTED BY 
THE PREVIOUS ANSWER. ANY DECIMAL NUMBER THAT CAN BE CON- 
VERTED INTO A 28-BIT BINARY VALUE WILL BE ACCEPTED. NO OTHER 
ERROR CHECKING WILL BE MADE AT THIS TIME TO DETERMINE IF THE 
BLOCK NUMBER ACTUALLY EXISTS ON THE DISK. 
READ ONLY (L) N ? 

ANSWER YES TO DICTATE READ ONLY AND PREVENT TEST #4 FROM 
PERFORMING ANY WRITES TO THE DISK. NOTE THAT TEST #3 WILL 
STILL WRITE TO THE DIAGNOSTIC CYLINDERS. 
WRITE ONLY (L) N ? 


THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES TO DICTATE WRITE ONLY. 


CHECK ALL WRITES BY READING (L) N ? 


ANSWER YES TO CAUSE ALL WRITES TO BE CHECKED BY READING THE 
DATA IMMEDIATELY AFTER THE WRITE OPERATION. 


RANDOMLY CHECK WRITES BY READING (L) Y ? 

THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES FOR THE WRITE CHECK TO 7 PERF ORMED 
RANDOMLY. ANSWER NO IF WRITE CHECKS ARE NOT DESIRED. 

DATA PATTERN ~ 0 FOR RANDOM SELECTION (D) 0 ? 
THERE ARE 16 DATA PATTERNS ‘-e ES SELECTED AS 1 TO 16. 
TE 1 TO 15 TO BE RANDOM 


E LY 
SELECTED FOR EACH WRITE. IF PATTERN NUMBER 16 IS SELECTED, 
oo SET OF QUESTIONS WILL BE ASKED FOR A PATTERN TO 


ENABLE ECC DATA CORRECTION. (L) Y ? 


YES ANSWER WILL ENABLE THE USE OF ECC TO CORRECT DATA 
ERRORS. NO ERROR MESSAGE WILL BE PRINTED WHEN THE ECC 
PROPERLY CORRECTS THE DATA ON THE FIRST READ OF ANY DISK 
BLOCK. READ RETRIES WILL END WHEN A RE-READ PRODUCES AN ECC 
CORRECTABLE ERROR. THE USE OF ECC CORRECTION WILL APPEAR ONLY 
IN THE STATISTICAL REPORT FOR THE DRIVE. 
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A_NO ANSWER WILL PREVENT THE USE OF ECC. ALL ECC ERRORS WILL 
CAUSE AN ERROR MESSAGE TO BE PRINTED AND RETRIES TO BE 
ATTEMPTED. 
COMPARE ALL DATA READ (L) N ? 

ANSWER YES TO CAUSE A DATA COMPARE AFTER EVERY READ. 
RANDOMLY COMPARE DATA READ (L) Y ? 

THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES FOR THE DATA COMPARE TO BE PERFORMED 
ON RANDOM RECORDS. ANSWER NO IF DATA COMPARES ARE NOT 
DESIRED. 
ENABLE RETRIES (L) Y 


A YES ANSWER WILL ENABLE RETRIES TO BE PERFORMED ON DISK 
ERRORS. 


RANDOM SEEK MODE (L) Y ? 

ANSWER YES TO CAUSE BLOCK NUMBERS TO BE CHOSEN RANDOMLY. 
ANSWER NO TO CAUSE BLOCK NUMBERS TO BE SELECTED SEQUENTIALLY 
UP AND DOWN THE DISK SURFACE. 


DO YOU WISH TO: 
- TEST ENTIRE AREA SELECTED 


0 

1 = SPECIFY BEGIN/END SETS TO TEST 

2 ~- SPECIFY TRACKS AND CYLINDERS TO TEST 

3 - SPECIFY GROUPS AND CYLINDERS TO TEST 
war CYLINDERS TO TEST 


THIS QUESTION SPECIFIES THE OPTIONS AVAILABLE TO LIMIT 
TESTING TO A PORTION OF THE SELECTED AREA (CUSTOMER OR 
DIAGNOSTIC) OF THE DISK. A ZERO ANSWER IS THE DEFAULT WHICH 
SPECIFIES TO USE THE ENTIRE AREA FOR THE TEST. OTHER ANSWERS 
WILL CAUSE ADDITIONAL QUESTIONS TO BE ASKED. 


NUMBER OF BEGIN/END SETS (D) 1 ? 
BEGIN BLOCK (A) 0 ? 
END BLOCK (A) 0 ? 


THESE QUESTIONS ARE why IF reer SETS =~ SELECTED TO 
LIMIT THE TESTING AREA (ANSWER ONE TO FOUR SETS MAY BE 
SPECIFIED. THE BEGIN BLOCK AND END BLOCK QUESTIONS ARE ASKED 

AS MANY TIMES AS NEEDED. 


NUMBER OF TRACKS TO TEST (D) 1 ? 
TRACK (D) 0 ? 


NUMBER OF GROUPS TO TEST (D) 1 ? 
GROUP (D) 0 ? 


ONE OF THESE SETS OF QUESTIONS IS ASKED IF EITHER TRACKS AND 
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CYLINDERS OR GROUPS AND CYLINDERS WAS SPECIFIED TO LIMIT THE 
TESTING AREA (ANSWERS 2 OR 3). UP TO SEVEN TRACKS OR GROUPS 
MAY BE SPECIFIED ON WHICH TESTING WILL BE LIMITED. 


DO YOU WISH TO LIMIT THE CYLINDERS TESTED (L) N ? 


THIS QUESTION IS ASKED ONLY AFTER THE TRACKS OR GROUPS HAVE 
BEEN SPECIFIED ABOVE. IF TESTING IS TO BE FURTHER LIMITED TO 
A SET OF CYLINDERS, ANSWER YES AND THE FOLLOWING TWO QUES- 
TIONS WILL BE ASKED: 


STARTING CYLINDER (A) 0 ? 
ENDING CYLINDER (A) 0 ? 


THESE QUESTIONS ARE ASKED IF THE QUESTION ole ABOVE 
WAS ANSWERED YES OR IF CYLINDERS WERE SELECTED TO LIMIT THE 
TESTING AREA (ANSWER 4). ONE SET OF CYLINDER NUMBERS MAY BE 
SPECIFIED TO LIMIT THE TESTING AREA. 


AFTER THE ABOVE QUESTIONS HAVE BEEN ASKED FOR ALL DRIVES SELECTED FOR 
TESTING, THE FOLLOWING QUESTIONS WILL BE ASKED IF DATA PATTERN 16 WAS 
SELECTED FOR ANY DRIVE: 


NUMBER OF WORDS IN DATA PATTERN 16 (D) 1 ? 
DATA WORD (0) O ? 


DATA PATTERN 16 CAN BE INPUT BY THESE QUESTIONS. A DATA 
PATTERN CONSISTS OF A BUFFER OF ONE TO 16 WORDS WHICH IS 
REPEATED THROUGHOUT THE DATA PORTION OF THE DISK BLOCK. ENTER 
THE CONTENTS OF THE DATA PATTERN BUFFER. THE DATA WORD 
QUESTION WILL BE REPEATED AS NEEDED. 


TEST #4 WILL START BY INITIALIZING EACH UDA SELECTED FOR TESTING AND 
THEN DJWNLINE LOADING A ‘DIAGNOSTIC eo” PROGRAM INTO EACH UDA. 


OR 
THE MANUAL INTERVENTION QUESTIONS OR THEIR DEFAULTS). ONCE ALL UDAS 
rye STARTED, THE PDP-11 PROGRAM WILL RESPOND TO REQUESTS FROM 


THE DISK WILL THEN BE EXERCISED ACCORDING TO THE PARAMETERS. THE 
EXERCISE CONSISTS OF SELECTING A DISK SECTOR, SEEKING TO THE PROPER 
CYLINDER, THEN READING OR WRITING THE SECTOR. THE PARAMETERS WILL 
CONTROL HOW THE DISK SECTOR IS SELECTED, WHETHER THE SECTOR IS WRITTEN 
OR READ AND WHETHER A WRITE IS FOLLOWED BY A READ (WRITE CHECK). 


THE ‘DIAGNOSTIC MACHINE’* PROGRAM WILL PERIODICALLY SEND STATISTICS TO 
THE PDP-11 PROGRAM. THESE oho tan kh WILL INCLUDE COUNTS OF READS, 
rey SEEKS AND ERRORS ON A PER DRIVE BASIS. THE PDP-11 PROGRAM WILL 


NO 
EXCEEDING OF THE TRANSFER LIMIT WILL CAUSE THE END OF TEST #4. 
EACH TIME AN ERROR OCCURS, THE ‘DIAGNOSTIC MACHINE’ WILL TELL THE 


PDP-11 PROGRAM. A_MESSAGE WILL BE PRINTED (OR STORED IN THE LOG 
BUFFER) AND THEN THE ERROR LIMIT FOR THE DRIVE WILL BE CHECKED. IF THE 
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ERROR LIMIT HAS BEEN REACHED, THE DRIVE WILL BE DROPPED FROM TESTING. 
IF NO MORE DRIVES REMAIN TO BE TESTED, TEST #4 WILL END (UNLESS THE 
ERROR LOG IS ENABLED). 


WHEN THE END OF TEST #4 OCCURS, THE ACCUMULATED STATISTICS FOR EACH 
DRIVE WILL BE PRINTED. THIS STATISTICAL REPORT CAN BE PRINTED AT ANY 
TIME DURING TEST #4 BY TYPING CONTROL-C THEN THE PRINT COMMAND. 


THE DATA PATTERNS TO BE USED BY TEST #4 ARE INDICATED BELOW. EACH 
PATTERN IS GENERATED BY WRITING THE PATTERN NUMBER IN EACH 4-BIT 
NIBBLE OF THE FIRST WORD, THEN REPEATING THE DATA PATTERN (SEQUENCE OF 
ONE TO 16 WORDS) THROUGHOUT THE REST OF Lin DATA BUFFER. PATTERN 
NUMBER 16 WRITES NIBBLES OF ZEROS. WHEN PATTERN NUMBER ZERO IS USED, 
THE ACTUAL PATTERN NUMBER WRITTEN (1 TO 15) IS PLACED IN THE NIBBLES 


PATTERN 0 THIS PATTERN NUMBER IS USED TO INDICATE ANY PATTERN 
NUMBER 1 TO 15 CHOSEN AT RANDOM. 


PATTERN | WORDS IN PATTERN SEQUENCE 


SEQUENCE (OCTAL) 105613 
SEQUENCE (HEX) 8888 


PATTERN 2 WORDS IN PATTERN SEQUENCE 


SEQUENCE (OCTAL) 031463 
SEQUENCE (HEX) 3333 


PATTERN 3 WORDS IN PATTERN SEQUENCE 


SEQUENCE (OCTAL) 030221 
SEQUENCE (HEX) 3091 


1 
PATTERN 4 WORDS IN PATTERN SEQUENCE = 16 (SHIFTING ONES) 
SEQUENCE (HEX) 0001, 0003, 0007, OOOF, OOIF. OO03F, 
OO7F, OOFF., OIFF, O3FF, O7FF, OFFF, 
FFF, SFFF, (FFF, FFFF 
PATTERN 5 WORDS IN PATTERN SEQUENCE - 16 (SHIFTING ZEROS) 
SEQUENCE (OCTAL) 177776, 177774, 177770, 177760, 177740, 


' 
— 


i 
—_ 


SEQUENCE (OCTAL) oooee'. 000003, BON" 000017, 000037, 
000077, 177, 00 0017 

Moat 007777, o19799" 037777, 897599. 

Aga. 177600, 177400, 177000, 176000, 


“000777, 
000; 170000; 160000; 140000; 100000: 


SEQUENCE (HEX) FFFE, FFFC, FFF8, FFFO, FFEO, FFCO, 
FF8O, FFOO, FEOO, FCOO, F800, FOOO, 
£000. C000; 8000. 0000 


PATTERN 6 WORDS IN PATTERN SEQUENCE - 16 
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SEQUENCE (OCTAL) 000000, 000000, 000000, 177777, 177777, 
77777, 000000. 0, 177777. 177777. 

900000. 177777. 000000. 177777. 000000. 

177777 

SEQUENCE (HEX) Or Rey * Orne A late FFFF, FFFF, 

0000, 0000, FFFF, , 0000, 

0000, FFFF, 0000; F 

PATTERN 7 WORDS IN PATTERN SEQUENCE = (BINARY 1011011011011001) 


SEQUENCE (OCTAL) 133331 
SEQUENCE (HEX) B6éD9 


PATTERN 8 WORDS IN PATTERN SEQUENCE = 16 
SEQUENCE (OCTAL) 052525, 7 $383. 052525, 125252, 125252, 
125252, 052525, 052525, 125252, 125252, 


052525. 125252, 052525, 125252, 053535. 
125252 


SEQUENCE (HEX) 5555, 5555, 5555, AAAA, AAAA, AAAA, 
5555, 5555, AAAA, AAAA, 5555, AAAA, 
5555. AAAA, 5555, AAAA 

PATTERN 9 WORDS IN PATTERN SEQUENCE = 1 (BINARY 1101101101101100) 


SEQUENCE (OCTAL) 155554 
SEQUENCE (HEX) DB6C 


PATTERN 10 WORDS IN PATTERN SEQUENCE - 16 
SEQUENCE corr ite 6455. Oees33° 026455, 151322, 151322, 
151322, 026455, 026455, 151322, 151322. 


026455, 151322. 026455 3° | 51322, 026055. 
151322 


SEQUENCE (HEX) 2D2D, 2D2D, 2D2D, D2D2, D2D2. D2Dd2, 


| 
i 
2D2D, 2D2D, D2D2, D2D2, 2D2D, De2b2, 
2D2D. D2D2. 2D2D. D2D2 
PATTERN 11 WORDS IN PATTERN SEQUENCE = 1 (BINARY 0110110110110110) 
SEQUENCE (OCTAL) 066666 
SEQUENCE (HEX)  6DD6 
PATTERN 12 WORDS IN PATTERN SEQUENCE - 16 (RIPPLE ONE) 
SEQUENCE (OCTAL) 000001, 000002, 000004, 200010. 000020, 
000040, 000100, 000200, 000400; 001000. 
902000. 602000; 010000; 020000; 040000; 
100000 
SEQUENCE (HEX) 0002, 0004, 0008, 0010, 0020, 
0040, 0080. - 8260, 0460, 0860, 
1000, 2000; O00. 
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PATTERN 13 WORDS IN PATTERN SEQUENCE = 16 (RIPPLE ZERO) 
SEQUENCE (OCTAL? 177776, 177775, 177773, 177767, 177757, 


177737, 177677, 177577, 177377. 176777. 
alee e 173777, 167777. 157777, 137777. 


SEQUENCE Be gst FFFD, FFFB, wre FFEF, FFDF, 


FFBF, FFF, FEFF FDEr. FBFF, 

EFFF, DFFF. BFFF. FFF 

PATTERN 14 WORDS IN PATTERN SEQUENCE - 3 

SEQUENCE (OCTAL) 155555, 133333, 155555 

SEQUENCE (HEX) DB6D, B6DB, DB6D 

PATTERN 15 WORDS IN PATTERN SEQUENCE - 16 

SEQUENCE (OCTAL) 133331, ae 133331, 155554, 155554, 
155554, 1332331, 133331, 155554, 15555 

\eeaes 155554, 133331, 155554, 133331. 


SEQUENCE (HEX) B6D9, B6D9, B6D9, DB6C. DB6C, DBEC, 
B6D9, B6D9, DB6C. DB6C. B6D9, C, 
86D9, DB6C. B6D9, DBE6C 


PATTERN 16 THIS IS THE OPERATOR SELECTABLE as ae IN MANUAL 
INTERVENTION MODE. QUESTIONS ARE ASKED WHEN TEST #4 IS 

STARTED FOR THe OPERATOR TO INPUT THE NUMBER OF WORDS IN 

THE SEQUENCE AND THE CONTENTS OF THE WORDS. 
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.TITLE CZUDCAO UDA AND DRIVE DIAGNOSTIC 
TTL PROGRAM HEADER 


-ENABL ABS 
-ENABL AMA 
= 2000 


BGNMOD 


ASSEMBLY CONTROL 


ENG=0 
MF G=0 


2 


. 
° 


> THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT, BGNSW, BGNSFT, ERRTBL, BGNSETUP 


HEADER CZDUA,A,0,0,1,PRIO7 


LSNAME : : 


LSREV: : 

LSDEPO:: 
LSUNIT:: 
LSTIML:: 
LSHPCP: : 
LSSPCP: : 
LSHPTP: : 
LSSPTP:: 
LS$LADP: : 
LSSTA:: 


L$CO:: 


LSDTYP:: 
LSAPT:: : 


SET NON-ZERO TO ASSEMBLE ENGINEERING CODE 
;SET NON-ZERO TO ASSEMBLE MANUFACTURING CODE 


LSHARD 
LSSOF T 
LSHW 
L$SwW 
LSLAST 
0 

0 

1 


SEQ 0023 
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002036 00000C -WORD 0 

002040 LSDTP:: 

002040 002124 .- WORD LSDISPATCH 

002042 LSPRIO:: 

002042 000340 -WORD PRIO7 

002044 LSENVI:: 

002044 000000 -WORD 0O 

002046 LSEXP1:: 

002046 000000 -WORD 0O 

002050 LSMREV:: 

002050 003 -BYTE C$REVISION 

002051 003 -BYTE CS$EDIT 

002052 LSEF:: 

002052 000000 -WORD 0 

002054 000000 -WORD 0O 

002056 L$SPC:: 

002056 000000 -WORD 0O 

002060 LSDEVP: : 

002060 002434 -WORD L$DVTYP 

002062 LSREPP: : 

002062 024602 -WORD LS$RPT 

002064 LSEXP4:: 

002064 000000 -WORD 0 

002066 LSEXPS: : 

002066 000000 -WORD 0 

002070 L$AUT:: 

002070 000000 -WORD 0O 

002072 L$DUT:: 

002072 000000 -WORD 0 

002074 LSLUN:: 

002074 000000 -WORD GO 

002076 LSDESP:: 

002076 002460 -WORD LS$DESC 

002100 LS$LOAD:: 

002100 104035 EMT ESLOAD 

002102 LSETP:: 

002102 002162 -WORD LS$ERRTBL 

002104 LSICP:: 

002104 026024 -WORD LSINIT 

002106 LSCCP:: 

002106 027476 -WORD LSCLEAN 
. 002110 LSACP:: 

002110 027474 WORD LSAUTO 

002112 LSPRT:: 

002112 026016 -WORD LS$PROT 

002114 LSTEST:: 

002114 000000 -WORD 0 

002116 LSDLY:: 

002116 000000 -WORD 0 

002120 LSHIME:: 

002120 000000 «WORD 0 
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DISPATCH TABLE 


5 -SBTTL DISPATCH TABLE 

3 i++ 

4 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 

: ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

7 * 

8 002122 DISPATCH 4 
002122 000004 -WORD 4 
002124 LSDISPATCH:: 
002124 027504 .~ WORD T1 
002126 030710 ~ WORD T2 
002130 031006 .~ WORD T3 
002132 031044 ~WORD T4 
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HARDWARE P-TABLE 
-SBTTL DEFAULT HARDWARE P=TABLE 


1 
ee 

4" 
4s ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
5 ; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
6 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
. ; AND IS USED AS A ‘‘TEMPLATE’’ FOR BUILDING THE P=TABLES. 
9 
0 


002134 BGNHW DFPTBL 


002134 000006 «WORD L10000-L$HW/2 
002136 L$HW: : 
"4 002136 DFPTBL:: 





21 002136 172150 . WORD te ; UNIBUS ADDRESS 


; VECTOR ADDRESS 

; BR LEVEL 

; UNIBUS BURST RATE 

; LOGICAL DRIVE NUMBER 
; CUSTOMER DATA AREA 


L10000: 
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SOF TWARE P=TABLE 


: 


OOONAMNE WI 


— 


000003 


000040 
000600 
040400 


-SBTTL SOFTWARE P=TABLE 


AT R 


ee ee 


BGNSW 


ENDMOD 
.SBTTL 


IONAL_ PARAMETERS. 


SFPTBL 


| 

| 

| 

| 

PROGRAM A | 
SET UP AT ASSEMBLY TINE AND MAY BE VARIED BY THE OPERATOR | 


32. 
0. 
*B0100000100000000 


$e 


SEQ 0027 


“THe SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
S OPERAT 


THESE PARAMETERS ARE 


-WORD 1L10001-L$SW/2 

L$Sw:: 

SFPTBL:: 
Zs OFFSET USE 
3. a. ERROR LIMIT , 
2 ee DATA TRANSFER LIMIT \«MEGABITS) 
; 4. SINGLE BIT QUESTIONS 

| 


L10001: 
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70 002162 


000340 


TITLE GLOBAL AREAS 


(3) 
* SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


‘ THE GLOBAL EQUATES SECTION “te PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE T 


EQUALS 
; BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
B1T11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO07== 200 
B1T06== 100 
BITO5== 40 
BIT04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 
BIT9== BITOY 
BIT8== BITO8 
BIT7== BITO7 
BIT6== BITO6 
BIT5== BITO5 
BIT4== BIT04 
BIT3== BITO3 
BIT2== BITO2 
BIT1== B1T01 
BIT0== B1T00 


+ EVENT FLAG DEFINITIONS 


;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
; START COMMAND WAS ISSUED 


EF .START== 

EF .RESTART== 31 
EF.CONTINUE== 30 
EF .NEW== 

EF .PWR== 28 


; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 


; RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0028 








CZ 
GL 





UDCAO_UDA_AND 
OBAL EQUATES S 


PRI06== 300 
PR1I05== 240 
PRI04== 200 
PRIQ3== 140 
PRIO2== 100 
PRI01== 40 
PRIOO== 0 

; OPERATOR FLAG BITS 
EVL== & 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 





SEQ 0029 

























CZUDCAO_UDA_AND DRI 
GLOBAL EQUATES SECTION 
1 
2 
3 
4 
5 000 
6 010000 
7 020000 
8 040000 
9 100000 
10 
11 
12 
13 003777 
14 
15 
16 
17 002000 
18 001000 
19 000400 
20 
21 
22 
23 
24 000177 
25 0002 
26 003400 
27 034000 
28 
29 100000 
30 
31 —_ 
32 
33 000007 
$e 000070 
36 000200 
37 003400 
38 
39 
40 
41 000001 
42 
43 
44 
45 
46 000177 
47 000200 
48 000400 
49 
50 
51 
52 
53 
54 100000 
55 








;UDA BIT DEFINITIONS 
;UDASA REGISTER UNIVERSAL READ BITS 


SA. Si= 


SA.ERR= 


;UDASA REGISTER ERROR STATUS BITS 


SA.ERC= 


;UDASA REGISTER STEP ONE READ BITS 


SA.NV= 
SA.A2= 


;UDASA REGISTER STEP ONE WRITE BITS 


SA.VEC= 
SA. INT= 
SA.MSG= 
SA. CMD= 


SA. STP= 


SA. CME= 


SA. STE= 
SA.CTP= 


;UDASA REGISTER STEP TWO WRITE BITS 


SA.PRG= 


;UDASA REGISTER STEP THREE READ BITS 


SA.VCE= 


;UDASA REGISTER STEP THREE WRITE BITS 


ba. TST= 
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004000 
100000 
003777 


002000 


100000 


003400 


000001 
177776 


000177 


077777 
100000 


:UDASA REGISTER STEP FOUR READ BITS 


ERROR INDICATOR 
ERROR CODE 


NON SETTABLE INTERRUPT VECTOR 
$22 BIT ADDRESS BUS 

; ENHANCED DIAGNOSTICS 

TALL BITS RESERVED 


: INTERRUPT VECTOR (DIVIDED BY 4) 

: INTERRUPT ENABLE DURING INITIALIZATION 
sMESSAGE RING LENGTH 

: COMMAND RING LENGTH 

RESERVED 

;STEP - MUST ALWAYS BE WRITTEN A ONE 


;UDASA REGISTER-STER-TWO READ BITS 2 nn cee e-~ 
SA.MSE= 00000 


feb ater: RING LENGTH ECHO 


OMMAND RING LENGTH ECHO ‘ 


tg 
STEP ECH 
‘CONTROLLER TYPE 


ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 
;LOW ORDER MESSAGE RING BYTE ADDRESS 


; INTERRUPT VECTOR ECHO 

: INT ERRUPT — ECHO 
VECTOR NOT PROGRAMMABLE 

"RESERVED 


;HIGH ORDER MESSAGE RING BYTE ADDRESS 


sPURGE POLE TEST ENABLE 


SEQ 0030 
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GLOBAL EQUATES SECTION | 


58 000377 SA.MCV= 000377 ;UDA MICROCODE VERSION 

an : 003400 RESERVED 

2! ;UDASA REGISTER STEP FOUR WRITE BITS 

63 000001 SA.GO= 000001 :GO BIT TO START UDA FIRMWARE 
64 000002 SA.LFC= 000002 LAST FAILURE CODE REQUEST 


SA.BST= 000374 ;BURST LEVEL 





CZUDCAO_UDA_AND 
GLOBAL EQUATES S 


nt eS St SS 
OVDWNAVUSWN —OVONAUSWwr—- 


DRIVE 
ECTION 


100000 
040000 


000260 
000354 


000000 
000001 
177777 
001000 
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; COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 


RG.OWN= 100000 SET WHEN UDA OWNS RING 
RG.FLG= 040000 zFLAG BIT 


OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 
AND TWO PACKET AND BUFFER AREAS. 


HC.ISZ= 4 ;SIZE OF INTERRUPT INDICATOR WORDS 
HC.RSZ= 4. :SIZE OF RING IN BYTES 

HC.ESZ= 4. ;SIZE OF ENVELOPE WORDS BEFORE PACKET 
HC.PSZ= 48 ;SIZE OF COMMAND AND MESSAGE PACKETS 
HC.BSZ= 60. ;SIZE OF BUFFER 

HC.INT= 0. ; INTERRUPT INDICATOR WORDS START 
HC.MSG= HC. INT+HC.JSZ MESSAGE RING START 

HC.MCT= HC.MSG+2. MESSAGE RING CONTROL WORD 
HC.CMD= HC.MSG+HC.RSZ ; COMMAND RING START 

HC.CCT= HC.CMD+2. ; COMMAND RING CONTROL _ 
HC.MEV= HC.CMD+HC.RSZ MESSAGE ENVELOPE STAR 

HC.MPK= HC.MEV+HC.ESZ sMESSAGE PACKET START 

HC.CEV= HC.MPK+HC.PSZ ; COMMAND ENVELOPE START 

HC.CPK= HC.CEV+HC.ESZ ; COMMAND PACKET START 

HC.BF1= HC.CPK+HC.PSZ FIRST BUFFER 

HC .BF2= HC.BF1+HC.BSZ SECOND BUFFER 

HC.SIZ= HC.BF2+HC.BSZ ;TOTAL SIZE OF HOST COMM AREA 
sVIRTUAL CIRCUIT IDENTIFIERS 

MSCP= 0 zMSCP CIRCUIT 

LOG= 1 [LOG CIRCUIT 

DIAG= -1 DIAGNOSTIC CIRCUIT 

DUP= 1000 DIAGNOSTIC AND UTILITIES PROTOCOL 


a | 






CZUDCAO_UDA_ AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 
GLOBAL EQUATES SECTION 


HC. INT 
HC .MSG 
HC.MCT 


HC. CMD 
HC.CCT 


HC.MEV 
HC ..MPK 


HC.CEV 
HC.CPK 


We 
SOWONAUEWN OO OONOAUEWR 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Se Be Be Be Be Be Be Be Be Be Se Be Be 
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| INTERRUPT INDICATORS SSS 
ast SSN RONG 56h nice ye, eet 
aa 7" teen aos 
mat MESSAGE ENVELOPE SSOSt*=~S~S~S 
i 


4 BYTES 


4 BYTES 


4 BYTES 


52 BYTES 


52 BYTES 


60 BYTES 


60 BYTES 


SEQ 0033 
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I 
Pre EQUATES SECT 


> COMMAND PACKET OPCODES 

3 000001 OP.ABO= 1 ;ABORT COMMAND 

& 000020 OP.»CC= 20 ACCESS COMMAND 

5 000010 OP.AVL= 10 sAVAILABLE COMMAND 

6 000021 OP.CCD= 21 COMPARE CONTROLLER DATA COMMAND 

? 000040 OP.CMP= 40 COMPARE HOST DATA COMMAND 

8 000022 OP.ERS= 22 sERASE COMMAND 

9 000025 OP.FLU= 23 FLUSH COMMAND 

10 000002 OP.GCS= 2 GET COMMAND STATUS COMMAND 

11 000003 OP.GUS= 3 GET UNIT STATUS COMMAND 

12 000011 OP.ONL= 11 ;ONL INE COMMAND 

13 000041 OP.RD= 41 READ COMMAND 

14 000024 OP.RPL= 24 REPLACE COMMAND 

15 000004 OP.SCC= 4 SET CONTROLLER CHARACTERISTICS COMMAND 
16 000012 oP.SUC= 72 SET UNIT CHARACTERISTICS COMMAND 

17 000042 OP.WR= 42 WRITE COMMAND 

18 000030 OP.MRD= 30 MAINTENANCE READ COMMAND 

19 000031 OP.MWwR= 31 MAINTENANCE WRITE COMMAND 

20 000200 OP.END= 200 END PACKET FLAG 

21 000007 OP.SEX= 7 SERIOUS EXCEPTION END PACKET 

22 000100 OP.AVA= 100 AVAILABLE ATTENTION MESSAGE 

23 000101 OP.DUP= 101 DUPLICATE UNIT NUMBER ATTENTION MESSAGE 
ra 000102 OP.SHC= 102 SHADOW COPY COM’LETE ATTENION MESSAGE 
2 000103 OP.RLC= 103 RESET COMMAND LIMIT ATTENTION MESSAGE 
27 000001 OP.GSS= 1 DUP GET STUD STATUS 

28 000002 OP.ESP= 2 DUP EXECUTE SUPPLIED PROGRAM 

000003 OP.ELP= 3 :DUP EXECUTE LOCAL PROGRAM 
000004 OP.SSD= 4 DUP SEND STUD DATA 

Hu 000005 OP.RSD= 5 DUP RECEIVE STUD DATA 

33 sNOTE: END PACKET OPCODES (ALSO CALLED ENDCODES) ARE FORMED BY ADDING THE END 
4 sPACKET FLAG TO THE COMMAND OPCODE. FOE EXAMPLE, A READ COMMAND'S END PACKET 
35 sCONTAINS THE VALUE OP.RD+OP.END IN ITS OPCODE FIELD. THE INVALID COMMAND END 
36 sPACKET CONTAINS JUST THE END PACKET FLAG (1.E., OP.END) IN ITS OPCODE FIELD. 
37 sTHE SERIOUS EXCEPTION END PACKET CONTAINS THE SUM OF THE END PACKET FLAG 

38 sPLUS THE SERIOUS EXCEPTION OPCODE SHOWN ABOVE (1.&., OP.SEX+OP.END) IN ITS 
4 sOPCODE FIELD. 
41 ; COMMAND OPCODE BITS 3 THROUGH 5 INDICATE THE COMMAND CLASS, WHICH IS ENCODED 
42 zAS FOLLOWS: 

43 : 000 IMMEDIATE COMMANDS 

64 ; 001 SEQUENTIAL COMMANDS 


45 > 010 NON-SEQUENTIAL COMMANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 
: 100 NON-SEQUENTIAL COMMANDS THAT DO INCLUDE A BUFFER DESCRIPTOR 





CZUDCAO UDA AND 


GLOBAL EQUATES S 


OWOBDWNAMNEWH 0 OONOWEWh 


— ss SS ss YY 


RUS 


; COMMAND MODIFIERS 


mn 
vo<c 
nuu 
3 
Nm 
So 


2 


EF .SEX= 000020 


: CONTROLLER FLAGS 


CF. .ATN= 000200 


CF.576= 000001 
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:CLEAR SERIOUS EXCEPTION 

; COMPARE 

EXPRESS REQUEST 

:FORCE ERROR 

; SUPPRE SS CACHING (HIGH SPEED) 


; SS 
SUPPRESS ERROR RECOVERY 
;SUPPRESS SHADOWING 
;WRITE~BACK (NON-VOLAT ILE) 
WRITE BACK (VOLATILE) 
WRI TE SHADOW SET ONE UNIT AT A TIME 


: SPIN-DOWN 

tye ENTIRE UNIT 
VOLATILE ONLY 

NEXT UNIT 

sALLOW SELF DESTRUCTION 


7CLEAR WRITE-BACK DATA LOST 
PRIMARY REPLACEMENT BLOCK 


;BAD . REPORTED 
BAD 


;SERIOUS EXCEPTION 


sENABLE ATTENTION MESSAGES 

sENABLE MISCELLANEOUS ERROR LOG MESSAGES 
sENABLE OTHER HOST*S ERROR LOG MESSAGES 
7 ENABLE Li HOST*S ERROR LOG MESSAGES 


3 SHADOW! 
7576 BYTE SECTORS 


SEQ 0035 


~- - F 



















ee ee ee ee 
SOMNONRWr=OOMNO UEWN 


mn 
N— 


23 


CZUDCAO UDA AND D 
GLOBAL EQUATES SE 


UF. 
UF .576= 


COMPARE READS 
COMPARE WRITES 
HOST INITIATED eT tnt REPLACEMENT 


3 E) 
[WRITE PROTECT (SOFTWARE OR VOLUME) 
3576 BYTE SECTORS 


; COMMAND PACKET OFFSETS 


. 
ao 
» 


DPV PVP VV 


WAAMWOCOLO 
. . oe os 


wo = 


GENERIC COMMAND PACKET OFFSETS: 
; COMMAND REFERENCE NUMBER 
;UNIT NUMBER 
; OPCODE 
sMODIFIERS 
;BYTE COUNT 
[BUFFER DESCRIPTOR 
;UNIBUS ADDRESS OF BUFFER DESCRIPTOR 
SLOGICAL BLOCK NUMBER 


ABORT AN® GET COMMAND STATUS COMMAND PACKET OFFSETS: 
sOUTSTANDING REFERENCE NUMBER 


ONLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS: 
tHOST IDENTIFIER / RESERVED 
TERROR LOG FLAGS 
S SHADOW UNIT 
:COPY SPEED 
REPLACE COMMAND PACKET OFFSETS: 
sREPLACEMENT BLOCK NUMBER 
SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETS: 
: CONTROLLER FLAGS 
‘HOST TIMEOUT 
[USE FRACTION 
TQUAD-WORD TIME AND DATE 
MAINTENANCE READ AND MAINTENANCE WRITE COMMAND PACKET OFFSETS: 
SREGION OFFSET 
EXECUTE SUPPLIED PROGRAM COMMAND PACKET OFFSETS: 


MDT TERMINAL ADDRESS (MAINT WRITE ONLY) 
[BUFFER DESCRIPTOR FOR OPERLAYS 


SEQ 0036 
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GLOBAL EQUATES SECTION : 
} END PACKET OFFSETS 
3 : GENERIC END PACKET OFFSETS: 
4 000000 P.CRF= 0. pete gy REFERENCE NUMBER 
5 000004 P.UNIT= 4. T NUMBER 
6 000010 P.OPCD= 8. SOPCODE (ALSO CALLED ENDCODE) 
7 000011 P.FLGS= 9. END PACKET FLAGS 
8 000012 P.STS= 10. STATUS 
9 000014 P.BCNT= 12 BYTE COUNT 
1 000034 P.FBBK= 28 FIRST BAD BLOCK 
12 ; GET COMMAND STATUS END PACKET OFFSETS: 
13 000014 P.OTRF= 12. OUTSTANDING REFERENCE. NUMBER 
1% 000020 P.CMST= 16. ; COMMAND STATUS 
16 : GET UNIT STATUS END PACKET OFFSETS: — 
17 000014 P.MLUN= 12. MULT I-UNIT CODE 
18 000016 P.UNFL= 14. T FLAGS 
19 000020 P.HSTI= 16. HOST IDENTIFIER 
20 000024 P.UNTI= 20. [UNIT IDENTIFIER 
21 000034 P.MEDI= 28. 7MEDIA TYPE IDENTIFIER 
000040 P.SHUN= 32. ; SHADOW UNIT 
23 000042 P.SHST= 34. SHADOW STATUS 
24 000044 P.TRCK= 36 2 TRACK SIZE 
25 000046 . P.GRP= 38. GROUP SIZE 
26 000050 P.CYL= 40. :CYLINDER SIZE 
27 000054 P.RCTS= 44. :RCT am SIZE 
28 000056 P.RBNS= 46. ;RBNS / TRACK 
34 000057 P.RCTC= 47. RCT COPIES 
31 ; ONLINE AND SET UNIT CHARACTERISTICS END PACKET AND AVAILABLE 
32 : ATTENTION MESSAGE OFFSETS: 
33 000014 P.MLUN= 12. tnt aie H CODE 
000016 P.UNFL= 14. ;UNIT FLAGS 
35 000020 P.HSTI= 16. ;HOST IDENTIFIER 
000024 P.UNTI= 20. SUNIT IDENTIFIER 
37 000034 P.MEDI= 28. [MEDIA TYPE IDENTIFIER 
38 000040 P.SHUN= 32. ; SHADOW UNIT 
39 000042 P.SHST= 34. SHADOW STATUS 
40 000044 P.UNCL= 36. [UNIT COMMAND LIMIT 
41 000050 P.UNSZ= 40. [UNIT SIZE 
43 000054 P.VSER= 44. ; VOLUME SERIAL NUMBER 
44 : SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 
45 000014 P.VRSN= 12. zMSCP_ VERSION 
46 000016 P.CNTF= 14, : CONTROLLER FLAGS 
47 000020 P.CTMO= 16. CONTROLLER TIMEOUT 
48 000022 P.CNCL= 18. CONTROLLER COMMAND LIMIT 
49 000024 P.CNTI= 20. : CONTROLLER ID 





CZUDCAO UDA AND DR 
GLOBAL EQUATES SEC 


} STATUS AND EVENT CODE DEFINITIONS 

3 000037 ST.MSK= 37 STATUS / EVENT CODE MASK 
4 000040 ST.SUB= 40 7SUB-CODE MULTIPLIER 

5 000000 ST.SUC= 0 7SUCCESS 

6 000001 -CMD= 1 ; INVALID COMMAND 

7 000002 -ABO= 2 [COMMAND ABORTED 

8 000003 ST.OFL= 3 7 UNIT-OF FLINE 

9 000004 ST.AVL= 4 ; UNI T-AVAILABLE 

10 000005 ST.MFE= 5 :MED T 

11 000006 -WPR= 6 ;WRITE PROTECTED 

12 000007 ST.CMP= 7 ; COMP. 

13 000010 ST.DAT= 10 DATA ERROR 

14 000011 ST.HST= 11 HOST BUFFER <7 ERROR 
15 000012 ST.CNT= 12 ; CONTROLLER ERR 

16 000013 ST.DRV= 13 ZDRIVE ERROR 

17 000037 ST.DIA= 37 MESSAGE *ROM AN INTERNAL DIAGNOSTIC 
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Mong eS Se Ss SO 
Soo NOU EWN OO OONAUSWR 


MNi— 
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GLOBAL EQUATES SECTION 


; ; CONTROLLER TABLE DEFINITIONS 


ONE TABLE WILL BE SET UP BY eee SECTION FOR EACH UDA SELECTED 
sFOR TESTING. TABLES ARE CONTIGUOUS. THE END OF THE TABLES IS 
;MARKED BY A WORD OF ZEROS. 


;THE FIRST TABLE IS POINTED TO BY THE CONTENTS OF CTABS. 
; THE NUMBER OF TABLES IS CONTAINED IN CTRLRS. 


aor e- ;UNIBUS ADDRESS OF UDAIP REGISTER 
CT.UNT= 000077 ; LOGICAL UNIT NUMBER (FIRST) 
cee / Sepa BIT15 : SET WHEN NOT AVAILABLE FOR TEST” ‘3 
CT.VEC= 000777 ; VECTOR ADDRESS 
CT.BRL= 007000 : BR LEVEL 
C.BST= 6. ; BURST LEVEL 
C.JSR= 8. INTERRUPT SERVICE ROUTINE FOR CONTROLLER 
C.JAD= 10. 3 THESE 7WO WORDS LOADED WITH CJSR RO,UDASRVI 
C.FLG= 12. .- FLAGS 
CT.RN= BIT1 :DM PROGRAM RUNNING 
CT.CMD= BIT2 COMMAND ISSUED, WAITING FOR RESPONSE 
CT.MSG= BITS ;MESSAGE RESPONSE RECEIVED 
WHENEVER THIS BIT IS SET, CT.CMD IS CLEARED 
CT.REQ= BIT4 BUFFER HAS BEEN GIVEN TO UDA FOR REQUEST 
;SET WHENEVER READ STUD DATA COMMAND 
:GIVEN TO UDA 
C.RING= 14. sRING BUFFER ADDRESS 
C.DRO= 16. ‘ :POINTER TO DRIVE TABLES 
C.DRi= 18. : IF ZERO, NO DRIVE TABLE EXISTS 
C.DR2= 
C.DR3= 22. 
C.DR4= . 
C.DR5= 
C.DR6= 28. 
C.DR7= 30. 
C.T0= 32. + TIMEOUT et pa 
C.TOH= 34. : TWO WORDS 
C.REF= 36. ® COMMAND REFERENCE NUMBER 
C.SIZE= 38. :SIZE OF CONTROLLER TABLE IN BYTES 


EE nnn 


SEQ 0039 







B 4 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL~81 15:14:57 PAGE 19 SEQ 0040 
GLOBAL EQUATES SECTION 


} :DRIVE TABLE DEFINITIONS 
3 ZONE DRIVE TABLE WILL BE SET UP BY THE INITIALIZE ye ee ap EACH 
4 SDRIVE SELECTED FOR TESTING. EACH TABLE IS POINTED 1 
5 [WORD IN THE CONTROLLER TABLE ON WHICH THE DRIVE EXISTS. 
° 
7 000000 D.DRV= 0. DRIVE NUMBER 
8 000002 D.UNIT = D.DRV+2 
9 000077 DT.UNT= 000077 ; LOGICAL UNIT NUMBER OF DRIVE 
10 100000 DT.AVL= BIT15 : SET WHEN NOT ope ape FOR TESTING 
11 D.PRM = D.UNIT+2 HARDWARE QUESTION FLAGS 
12 040000 D.IW =B1T14 : INITIAL _WRITE 
13 020000 D.DCY =BIT13 DIAGNOSTIC CYLINDERS 
14 010000 D.ECC =BITI2 ECC CORRECTION ENABLED 
15 000 D.RO =B1T11 ;READ ONLY 
16 002000 D.WO =B1T10 WRITE ONLY 
17 001000 D.RET  =BIT9 ;RETRIES ENABLED 
18 000400 D.CYL =81T8 zSTART/END CYLINDERS SPECIFIED 
19 000100 D.SEQ =BIT6 SSEQUENTIAL ACCESS 
20 D.BE =BIT5 ;BEGIN/END BLOCKS USED 
21 000020 D.TR =B1T4 ; WHEN D.BE=0: 1 = TRACKS, 0 = GROUPS 
000010 D.We =B1T3 sWRITE CHECKS ENABLED 
23 000004 D.WCA =BIT2 ALWAYS WRITE CHECK 
24 000002 D.D =B1T1 DATA COMPARES ENABLED 
25 000001 D.DCA =BITO ZALWAYS DATA COMPARE 
26 011012 DDEF=D.ECC+D.WC+D.DC+D.RET ;DEFAULT D.PRM 
27 140200 D.ZERO=B1T15+B1T7+D.IW ;BITS TO BE CLEARED 
28 000006 D.PAT = D.PRM+2 DATA PATTERN NUMBER 
29 000010 D.BB = D.PAT+2 BAD BLOCK COUNT 
30 000012 D.BB01 = -BB+2 ;BAD BLOCK 1 
31 000016 D.BB02 = D.BBO1+4 : 2 
32 000022 D.BB03 = D.BB02+4 ; 3 
33 000026 D.BB04 = D.8803+4 : & 
34 000032 D.BBO5 = D.BB04+4 : 5 
35 000036 D.BB06 = D.BB05+4 ; 6 
36 000042 D.BBO7 = D.BB06+4 ; 7 
37 000046 D.BB08 = D.BBO7+4 : 8 
000052 D.BBO9 = D.BB08+4 : 9 
39 000056 D.BB10 = D.BB09+4 ; 10 
40 000062 D.BB11 = D.BB10+4 ; 11 
41 000066 D.BB12 = D.BB11+4 : 12 
42 000072 D.BB13 = D.BB12+4 ; 13 
43 000076 D.BB14 = D.BB13+4 ; 14 
4h 000102 D.BB15 = D.BB14+4 ; 15 
45 000106 D.BB16 = D.BB15+4 : * 16 
46 000112 D.BEC = D.BB16+4 ;BEGIN/END SET COUNT 
47 000114 D.BGN1 = D.BEC+2 BEGIN BLOCK 1 
48 000120 D.END1 = D.BGN1+4 7 END 
49 000124 D.BGN2 = D.END1+4 ;BEGIN BLOCK 2 
50 000130 D.END2 = D.BGN2+4 7 EN 
51 000134 D.BGNS = D.END2+4 ;BEGIN BLOCK 3 
000140 D. = D.BGN3+4 
D = D.END3+4 ;BEGIN BLOCK 4 
D. = D.BGN4+4 7 END 
D. = D.END4+4 SBEGIN CYLINDER 
D. = D.BCYL +4 sEND CYLINDER 
D.XFRW = D.ECYL+4 ;MEGABITS WRITTEN COUNT 


me — Ce 





CZUDCAO_UDA_AND 
GLOBAL EQUATES SEC 





mo 


I 

1 

170 
000172 
000174 
000176 
000200 


38 


000206 
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66 


D.XFRW+2 


D.SERN+6 





;MEGABITS READ COUNT 
HARD ERROR COUN 

:SOFT ERROR COUNTER 

; NUMBER OF SEEKS X1008, 
ZECC COUNTER 

DRIVE SERIAL NUMBER 
;SIZE OF DRIVE TABLE IN BYTES 
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GLOBAL EQUATES S$ 


} KT MEMORY MANAGEMENT REGISTERS 
3 172340 PARO= 172340 ;KERNAL PAGE ADDRESS REGISTERS 
4 172342 PARI= 172342 
5 172344 PAR2= 172344 
6 172346 PAR3= 172346 
7 172350 PAR4= 172350 
8 172352 PARS= 172352 
9 172354 PAR6= 172354 
hs 172356 PAR7= 172356 
12 172300 PDRO= 172300 ;KERNAL PAGE DESCRIPTOR REGISTERS 
13 172302 PDR1I= 172302 
14 172304 PDR2= 172304 
15 172306 PDR3= 172306 
16 172310 PDR4= 172310 
17 172312 PDRS= 172312 
18 172314 PDR6= 172314 
19 172316 PDR7= 172316 
20 077400 MM.PLF= 077400 PAGE LENGTH FIELD 
21 NORMALLY ALL SET 
22 000100 MM.W= 000100 sWRITTEN INTO (READ ONLY) 
23 000010 MM.ED= 000010 EXPANSION DIRECTION 
24 NORMALLY NOT SET 
25 000006 MM.ACF= 000006 sACCESS CONTROL FIELD 
$$ NORMALLY ALL SET 
28 177572 SRO= 177572 STATUS REGISTER 0 
000001 MM.EN= 000001 ENABLE MANAGEMENT 
31 
3 ;DM PROGRAM HEADER DEFINITIONS 
34 000000 DMTRLN= 0 OFFSET TO SIZE OF PROGRAM NEEDING DOWNLINE LOAD 
35 000004 DMOVRL= 4 OFFSET TO SIZE OF OVERLAY 
36 000040 DMMAIN= 40 OFFSET TO FIRST WORD OF MAIN PROGRAM 


37 001000 DMFRST= 1000 ;ADDRESS IN DM FILE CONTAINING FIRST BYTE OF HEADER 





ay 












CZUDCAO UDA AND DRIVE 
GLOBAL EQUATES SECTION 


, ;USEFUL 

3 MACRO 

4 

5 

6 

i .ENDM 

9 -MACRO 

10 

11 

12 

13 .~ENDM 

14 

15 ~MACRO 

16 

17 

18 

19 

20 

21 .ENDM 
-MACRO 
~ENDM 
-MACRO 
~ENDM 
-MACRO 


.ENDM 
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INSTRUCTION DEF INI TIONS 
AND ARG,ADR 


: BIC #*C<ARG>,ADR 
.NLIST 


;LOGICAL AND INSTRUCTION 


OR ARG,ADR . 


BIS #ARG,ADR 
«NLIST 


;LOGICAL OR INSTRUCTION 


PUSH ARG 
ee 


; MOV X,-(SP) 
.NLIST 
"END 


;PUSH INSTRUCTION 


POP ARG 
- IRP_ X,<ARG> 


«LIST 
MOV (SP)+,Xx 


7POP INSTRUCTION 


7A BRANCH TO THE NEXT LOCATION 


. és 
- ; ILLEGAL .BR TO ADR 
-ENDC 
ASSUME go CONDITION SECOND 
.IF CONDITION <F JRST>=-<SECOND> 
—_— ;BAD ASSUME OF <FIRST> CONDITION <SECOND> 


-——————__---- 
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GLOBAL DATA SECTION 


SEQ 0044 


} -SBTTL GLOBAL DATA SECTION 
3 ptt 
4 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
Z ; IN MORE THAN ONE TEST. 
7 
20 
21 002162 ERRTBL 
002162 LSERRTBL:: 
002162 000000 ERRTYP:: -WORD 0 
002164 000000 ERRNBR: : «WORD OQ 
002166 000000 ERRMSG: : «WORD 0 
002170 000000 ERRBLK -WORD 0 
23 002172 000 000 ERRCHR: .BYTE 0,0 FIRST BYTE LOADED WITH OUTPUT CHARACTER 
OND BYTE REMAINS ZERO TO STOP OUTPUT 
25 002174 FFREE:: .BLKW 1 “FIRST FREE WORD IN MEMORY 
26 002176 FSIZE:: .BLKW 1 :SIZE OF FREE MEMORY IN WORDS 
7 0C22 FMEM: -BLKW 1 ;COPY OF FFREE AT END OF INIT SECTION 
28 002202 FMEMS: .BLKW 1 COPY OF FSIZE AT END OF INIT SECTION 
29 002204 CTABS:: .BLKW 1 :START OF CONTROLLER TABLE STORAGE 
30 002206 CTRLRS: .BLKW 1 ; COUNT OF UDA CONTROLLERS IN PTABLES 
31 002210 TSTTAB: .BLKW 1 [POINTER TO FIRST CONTROLLER TABLE UNDER TEST 
32 002212 DMPROG: .BLKW 1 ;START ADDRESS OF DM PROGRAM 
33 002214 DMEND: .BLKW 1 END ADDRESS OF DM PROGRAM(FIRST FREE MEMORY ADR) 
34 002216 DMENDS: .BLKW 1 ;FREE MEMORY SIZE FROM END OF DM PROGRAM 
0022 KTBASA: .BLKW 1 :HIGH TWO BYTES OF BASE ADDRESS FOR KT ACCESS 
37 002222 KTBASO: .BLKW 1 ;LOW BYTE OF ADDRESS FOR KT ACCESS 
39 002224 IFLAGS::.BLKW 1 :FLAGS FROM INIT — FOR TEST 4 
40 000002 ICONT ==BI1T1 ; CONTINUE EVENT FLAG 
41 000004 IREST ==BIT2 ¢ RESTART FLAG 
42 000010 ISTRT ==BIT3 ; START FLAG 
43 20 ISTRTH==BIT4 ; START FLAG HOLD FOR T4UPRM ROUTINE 
44 002226 TNUM: -BLKW 1 NUMBER OF TEST EXECUTING 
45 002230 URUN : -BLKW 1 ;NUMBER OF UNITS TO RUN AT ONE TIME 
46 002232 URNING: .BLKW 1 sNUMBER OF UNITS STILL RUNNING 
47 002234 UCNT: -BLKW 1 ;COUNTER OF UNITS UNDER TEST 
48 002236 INTRCV: .BLKW 1 ; INTERRUPT RECEIVED FLAG FOR INT TESTING 
50 002240 FNAME : 
53 002240 132 125 104 77 lncnaatin PAK\ ;NAME OF DATA FILE 
EV 
56 002254 000000 FDATA: .WORD 0 
57 602256 000000 FILOPN: .WORD 0 3FILE OPEN WHEN NON-ZERO 
58 002260 MP: BLKW 12 ;TEMPORY STORAGE FOR GMANI RESPONSES 
60 002310 000001 PAT16C: .WORD 1 ;COUNT OF WORDS IN DATA PATTERN 16 
61 002312 000000 PAT16W: .WORD 0 ;WORD SEQUENCE FOR DATA PATTERN 16 
62 002314 000000 «WORD 0 
63 002316 000000 -WORD 0 
0023 000000 «WORD 0 
65 002322 000000 «WORD 0 
66 002324 000000 «WORD 0 
67 002326 000000 «WORD 0 








| satin lgiaipetinensnscetulicanme mens ienhinamiailiih 
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GLOBAL DATA SECTION 


68 002330 000000 -WORD 0 
69 002332 000000 «WORD 0 
2334 000000 WORD 0 

71 902336 000000 WORD 0 
72 002340 000000 WORD 0 
73 002342 000000 WORD 0 
74 002344 000000 WORD 4 
000000 0 


76 002350 WORD 
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GLOBAL DATA SECTION 


} CLOCK CONTROL 
3 002352 000000 KW.CSR: .WORD 0 
4 002354 000000 KW.BRL: .WORD 0 
5 002356 000000 KW.VEC: .WORD 0 
6 002360 000000 KW.HZ: WORD 0 
‘ 002362 KW.EL: .BLKW 2 
9 000000 NXMAD: .WORD 0 
1? 002370 000000 KTMEM: .WORD 0 
\¢ 002372 STIME: .BLKW 2 
14 002376 T2WRR: .BLKW 1 
15 002400 T2WRO: .BLKW 1 
1g 002402 T2DR: .BLKW 1 
18 
4 _ gERROR LOG CONTROL WORDS 
21 002404 LBUFS: .BLKW 1 
22 002406 LBUFN: .BLKW 1 
$ 002410 LBUFE: .BLKW 1 
5 DISK DIAGNOSTIC DLL CONTROL WORDS 
-BLKW 1 
-BLKW 1 
BLKW 1 
-BLKW 1 


: .BLKW 2 





;CSR OF CLOCK 
7BR LEVEL 


; VECTOR 
HERTZ (50. OR 60.) 
ELAPSED TIME 


;SET TO ALL ONES BY NON-EXISTANT ADDRESS 


;SET TO ALL ONES IF NO KT EXISTS 


STATISTICAL REPORT TIMER 


;WRITE/READ REGION 
sWRITE/READ OFFSET 
:DIAGNOSE REGION 


START ADDRESS OF LOG/ZERO IF NONE 
;ADDRESS FOR MORE DATA FOR LOG 


LAST ADDRESS AVAILABLE FOR LOG DATA 


:DOWNLINE LOAD RESPONSE CODE = 


ameclOn FROM DM PROGRAM TO BE RETURNED 
ZADDRESS WHERE PROGRAM STORED 


:SIZE OF PROGRAM IN BYTES 
SNAME OF PROGRAM IN RADSO 


SEQ 0046 


0 = NO DATA, 
$1 = PROGRAM PROVIDED, 2- PROGRAM NOT FOUND 
[DRIVE NUMBER REQUESTING PROGRAM 


‘gee he aneyernmentr te cae ein See ee oe Ge eee or 5 ee “9 r 


I 
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GLOBAL TEXT SECTION 


SS 


.SBTTL GLOBAL TEXT SECTION 
-+¢ 
é ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
5 ; MESSAGES - AND ascii INFORMATION THAT ARE USED IN 
g : MORE THAN ONE TES 
: a. 
10 : NAMES OF DEVICES SUPPORTED BY PROGRAM 
12 0024634 ; DEVTYP <LOGICAL DISK DRIVE> 
002434 LSDVTYP:: 
002434 114 117 107 sASCIZ /LOGICAL DISK DRIVE/ 
“EVEN 
13 
19 
9 3 TEST DESCRIPTION 
22 002460 : DESCRIPT <UDA=50 CONTROLLER AND DISK DRIVE DIAGNOSTIC> 
002460 LBDESC:: 
460 125 104 191 -ASCIZ /UDA=50 CONTROLLER A 
we “EVEN 
30 ; DESCRIPTIONS OF INDIVIDUAL TESTS 


-ASCIZ\UNIBUS my sod aaaeat 
eASCIZ\DISK RESIDEN 
-ASCIZ\DISK FUNCTION 
-ASCIZ\DISK EXERCISER\ 
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GLOBAL TEXT SECTION 


} ;UNFORMATTED MESSAGES USED IN ERROR CALLS 

3 002631 116 117 124 FMERRM: .ASCIZ\NOT ENOUGH MEMORY. SELECT FEWER UNITS TO TEST.\ 

4 002710 127 122 117 RSPPKE: .ASCIZ\WRONG OPCODE RECEIVED IN MESSAGE PACKET\ 

5 002760 115 105 123 RSPPRE: .ASCIZ\MESSAGE PACKET RECEIVED WITH WRONG REFERENCE NUMBER\ 
6 003044 115 105 123 RSPPNE: .ASCIZ\MESSAGE PACKET RECEIVED WITH UNKNOWN REQUEST NUMBER\ 
? 003130 105 122 122 RSPSTE: .ASCIZ\ERROR STATUS CODE REPORTED IN MESSAGE COMMAND\ 

8 003206 125 104 107 LOADM1: .ASCIZ\UDA RETURNED ERROR TO SEND STUD DATA COMMAND\ 

9 003263 125 104 101 INTHD: .ASCIZ\UDA INITIALIZE ERROR\ a 

10 003310 105 122 122 RWRDEM: .ASCIZ\ERROR READING ‘DIAGNOSTIC MACHINE’’ PROGRAM F ILE\ 

11 003370 124 127 117 MLDREM: .ASCIZ\TWO P-TABLES POINT TO SAME DRIVE\ 

is 003431 115 117 122 TOOMEM: .ASCIZ\MORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER\ 

13 003513 124 101 102 BADT: .ASCIZ\TABLE INCONSISTANCY ERROR. START PROGRAM AGAIN. \ 

14 003573 116 125 115 1488: .ASCIZ\NUMBER 

15 003620 102 101 104 T4BBI: .ASCIZ\BAD BLOC 

16 003632 122 105 101 T4RO: .ASCIZ\READ Y\ 

17 003644 127 122 111 T4WO: .ASCIZ\WRITE ONLY\ 

18 003657 103 110 105 T4WCA: .ASCIZ\CHECK ALL WRITES BY READING\ 

19 003713 122 101 116 T4WCR: .ASCIZ\RANDOMLY CHECK WRITES BY READING\ 

20 003754 104 101 124 T4DP:  .ASCIZ\DATA PATTERN = 0 FOR RANDOM SELECTION\ 

21 004022 105 116 107 T4ECC: .A4SCIZ\ENABLE ECC DATA CORRECTION\ 

22 004055 103 117 115 T4DCA: .ASCIZ\COMPARE ALL DATA READ\ 

23 004103 122 101 116 T4DCR: .ASCIZ\RANDOMLY COMPARE DATA READ\ 

24 004136 105 116 101 TGRET: .ASCIZ\ENABLE RETRIES\ 

25 004155 122 101 116 T4SEK: .ASCIZ\RANDOM SEEK MODE\ 

26 004176 040 040 000 140PT7: .ASCIZ\ \ 
27 00420 116 125 115 T4BE:  .ASCIZ\NUMBER OF BEGIN/END SETS\ 

28 004232 102 105 107 T4BEG: .ASCIZ\BEGIN BLOCK\ 

29 00424 105 116 104 T4END: .ASCIZ\END BLOCK\ 

30 0042 116 125 115 T4TRC: .ASCIZ\NUMBER OF TRACKS TO TEST\ 

31 004311 124 122 101 T4TRAK: .ASCIZ\TRACK\ 

32 004317 116 125 115 T4GRC: .ASCIZ\NUMBER OF GROUPS TO TEST\ 

33 004350 107 122 117 T4GRP: .ASCIZ\GROUP\ 

34 004356 104 117 040 T4CYL: .ASCIZ\DO YOU WISH TO LIMIT THE CYLINDERS TESTED\ 

35 00443C 123 124 101 T4CYLB: .ASCIZ\STARTING CYLINDER\ 

36 004452 105 116 104 T4CYLE: .ASCIZ\ENDING CYLINDER\ 

37 004472 116 125 115 T4DPC: .ASCIZ\NUMBER OF WORDS IN DATA PATTERN 16\ 

004535 104 101 124 T4DPD: .ASCIZ\DATA WORD\ 

39 004547 104 115 040 GTDRV1: .ASCIZ\DM PROGRAM ASKED FOR DATA ON UNKNOWN DRIVE\ 

40 004622 125 104 101 LOOPOO: .ASCIZ\UDASA NON-ZERO AFTER ENTRY INTO LOOP MODE OR WRITING UDASA\ 
41 00471 125 104 101 LOOPO1: .ASCIZ\UDASA NEVER BECAME NON-ZERO AFTER WRITING WITH NON-ZERO DATA\ 
42 005012 104 101 124 LOOPO2: .ASCIZ\DATA COMPARISON ERROR DURING DIAGNOSTIC PORT LOOP TEST\ 
43 005101 111 116 103 INTST2: .ASCIZ\INCORRECT BR LEVEL\ 

44 005124 116 117 040 INTST4: .ASCIZ\NO INTERRUPTS EVER RECEIVED FROM UDA\ 

5 005171 101 122 105 INITWC: .ASCIZ\ARE YOU SURE CUSTOMER DATA CAN BE DESTROYED\ 

46 005245 106 101 111 Fs alma TO READ DM PROGRAM FROM DATA FILE\ 

-EV 





oo 







me a 
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} ; FORMAT STATEMENTS USED IN PRINT CALLS 
20 005316 045124000 ERRONE: .ASCIZ\ZT\ 
045 116 000 ERRNL: .ASCIZ\ZN\ 
045 101 124 INTMI: -ASCIZ\ZATIME-OUT ERROR WHILE WAITING FOR RESPONSE IN UDASA REGISTERZN\ 
045 101 011 INTM2: -ASCIZ\ZA UDASA REGISTER = %062N\ 
045 101 125 ~INTM3: :ASCIZ\ZAUDA RESIDENT DIAGNOST:CS DETECTED FAILUREZN\ 
045 101 125 INTM4: ASCIZ\ZAUDASA REGISTER DID NOT RETURN CORRECT VALUEZN\ 
045 101 011 INTMS: <ASCIZ\ZA EXPECTED = ZO6ZN\ 
045 101 011 INTM6: ‘ASCIZ\ZA 2% 
028 —«101-~—=«122«INTBIM: “ASCIZ\ZARING BUFFER WAS NOT CLEARED BY UDAIN\ 
045 101 103 INTB2M: -ASCIZ\ZACURRENT CONTENTS OF RING BUFFER 
045 123 066‘ INTBSM: :ASCIZ\ZS6ZAADDRESS%S4ZACONTENTSZN\ 
045 117 061 _INTBOM: “ASC12\E01 52011 2N\ (Ba 
045 101-106 RWRDF1: -ASCIZ\ZAPILE BEING READ IS “21%A 2N\ 
043 101-~—=« 104: RURDF2: TASCIZ\ZADID NOT FIND START AND NULL FRAMES WHERE EXPECTEDIN\ 
045 101 103 RWRDF4: ZASCIZ\ZACHECKSUM ERROREN\ 
045 124 045 ERRMB: ‘ASCIZ\ZTZA DM PC:204%A UDA AT 062A \ 
045 101 104 ERRMBD: :ASCIZ\ZADRIVE %23%A_\ 
045 101 122. ERRMRT: -ASCIZ\RARUNTIME XD3ZA: 27224: 272\ 
045 = 101 ERRME1: ZASCIZ\ * * ERROR PROCESSING DM MESSAGE STRING * * *N\ 
045 101 122 MXFERP: “ASCIZ\ZAREACHED TRANSFER LIMIT = TESTING STOPPEDZN\ 
045 116 045. ERRLIM: -ASCIZ\ZNZAUNIT 222A REACHED ERROR LIMIT ~ WILL NO LONGER BE TESTED. 2N\ 
045 101 040 LOOPO3: -ASCII\ZA DAT : %072N\ 
045 101 040 “ASCIZ\ZA.__DATA RECEIVED : ZO7EN\ 
045 116 045 INTSTO: :ASCIZ\ZNZATESTING INTERRUPT ABILITY OF UDA AT ADR %06%A VEC %032A...\ 
045 101 103 INTST1: -ASCIZ\ZACOMPLETED DZN\ 
045 101 125 INTST3: :ASCIZ\ZAUDA INTERRUPTED AT BR LEVEL %012N\ 
043 116-—=«48.INITUA: “ASCIZ\ZNZACUSTOMER DATA WILL BE DESTROYED ON: 2NXSSRAUNITXSSZAUDA ATZS3%ADRIVEIN\ 
045 123 066 INITWB: ZASCIZ\%S6%D2%S6%06%S4 2D32N\ 
045 116 045 T4WARN: :ASCIZ\ZNZAMANUAL INTERVENTION NOT ALLOWED. TEST 4 USING DEFAULT PARAMETERSIN\ 
045 116 045 T4QHED: ASCIZ\ZNZATHE FOLLOWING QUESTIONS REFER TO UNIT %Z2%A UDA AT %06%A DRIVE %Z3%N\ 
045 116 045 T4OPT1: [ASCIZ\ZNZADO YOU WISH TO:2N\ 
045 101-040 T40PT2: -ASCIZ\ZA O ~ TEST ENTIRE AREA SELECTEDIN\ 
045 101 040 T4OPT3: :ASCIZ\ZA 1 - SPECIFY BEGIN/END SETS TO TESTZN\ 
045 = 101 T4OPT4: TASCIZ\GA 2 - SPECIFY TRACKS AND CYLINDERS TO TEST2N\ 
045 101 040 T4OPT5: :ASCIZ\ZA 3 = SPECIFY GROUPS AND CYLINDERS TO TEST2N\ 
045 101040 T4OPTO: -ASCIZ\ZA 4 ~ SPECIFY CYLINDERS TO TEST\ 
045 101114 INPQBA: .ASCIZ\ZALIMITS = LO= 0, HI= 2684354553N\ 
045 101111. INP2BB: -ASCIZ\ZAINVALID CHAR, TYPE DECIMAL NUMBER 0 10 2684354552N\ 
045 116045 MESSG: | -ASCIZ\ZNZAUNIT 2Z22A UDA AT 20634 DRIVE T73%5\ 
045 101 104 +CTABEM: :ASCIZ\ZADIFFERENT VECTORS, BR LEVELS OR BURST RATES SPECIFIED FOR UDA AT %06%N\ 
045 «116.048. T2WARN: ZASCIZ\IN L_INTERVENTION NOT ALLOWED. TEST 2 RUNNING UNATTENDED. ZN\ 
043 116 «04S. TSCMS1: ZASCIZ\RNZATEST #2 MANUAL INTERVENTION ON UNIT XZ2%A UDA AT 206%A DRIVE XZ32N\ 
045 }01~«=«134 TCMS2: “ASCII\ZATO WRITE AND READ. MEMORY :ZN\ 
045 101 040 "ASCII\EA W DATA REGION OF FSETENA 
045 101 040 ASCIZ\ZA__R_REGION OFF SETZN\ 
045 101 124 T2CMS3: ZASCII\ZATO RUN A DIAGNOSTIC: 2N\ 
045 101 040 “ASCIZ\ZA__D_REGIONZN\ 
045 101124 T2CMS4: -ASCII\ZATO. EXIT QUESTIONING: 2N\ 
065 101 040 SCII\ZA EXN\ 
045 101 104 SCIZ\ZADATA, REGION AND OFFSET ARE HEX VALUES. %N\ 
045 101~«=«O7?-T2CMS5: TASCIZ\ZA7 INBUT ERRORIN\ 
045 101 116 NOCLOCK::ASCIZ\ZANO LINE CLOCK AVAILABLE FOR TIMING EVENTSZN\ 
043 101-~—=«116._RSPTOM: ZASCIZ\ZANO_INTERRUPT FROM UDA AT 206%A FOR 3° MINUTESEN\ 
045 101 +—«:106.-RSPTMM: ZASCIZ\ZAFATAL ERROR FROM UDA AT Z06%NZA _UDASA CONTAINS %O6ZN\ 
045 101 (115 INITMM: <ASCIZ\ZAMEMORY ACCESS ERROR TO UDA REGISTERS AT %06%N\ 
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75 011354 045 101 125 INTM7 ASCIZ\ZAUDASA DID NOT GO TO Ss AFTER STEP 3 WRITE WITH PURGE/POLL BIT SETZN\ 
76 011464 040 040 040 INT “ASCIZ\___UDASA CONTAINS %06%N\ 

77 011514 045 101 105 LOGDAT: .ASCIZ\ZAERROR = DATA PLACED IN LOG BUFFERZN\ 

78 011562 045 101 105 LOGFUL: .ASCIZ\ZAERROR = DATA LOST BECAUSE LOG BUFFER FULL%N\ 

79 011640 045 116 045 LOGM1: .ASCIZ\ZNZACONTENTS OF ERROR LOG: 2N\ 

80 011675 045 116 045 LOGM2: .ASCIZ\ZNZAEND OF ERROR LOGZN\ 

e 011724 045 116 045 LOGM3: oT treats LOG IS EMPTYZI\ 


CZUDCAO UDA AND DRIVE 
GLOBAL ERROR REPORT S 


NM —OVODNOUEWR-$OVDONOUE WR 


Noon  @ SS Ss Ss oe 
Ww 


28 012152 
9 


30 012154 
31 012154 
32 012176 
33 


37 v12242 
38 


39 012244 
40 012244 


55 
56 012436 
57 012436 





DI 
ECT 


177777 
177777 
177777 
177777 
177777 


013702 002174 
010103 
062702 000002 
005303 
003362 
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-SBTTL GLOBAL ERROR REPORT SECTION 


:++ 
THE GLOBAL ee “sie pik hy CONTAINS MESSAGE PRINTING AREAS 

USED BY MORE T TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
_(BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


§VCINS= -1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
VCTST= =1 ; LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= =-1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= -1 ; LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= =1 ; LIST OTHER TAGS, SHIFTED RIGHT 
BGNMSG INTR1 ;TIME OUT ERROR 
PRINTB #INTM1 
PRINTB #INTM2,R2 
ENDMSG 
BGNMSG INTR2 UDA DIAGS FAILED 
PRINTB #INTM3 
PRINTB #INTM2,R2 
ENDMSG 
BGNMSG INTR3 ; IMPROPER RESPONSE 
PRINTB #INTM4 
PRINTB #INTMS,R1 
PRINTB #INTM6,R2 
ENDMSG 
BGNMSG INTR4 ;UDA NON~EXISTANT 
PRINTB #INITMM, (R5) 
ENDMSG 
BGNMSG INTRS 
PRINTB #INTM7 
PRINTX #INTM8,R2 
ENDMSG 
BGNMSG INTBF :RING BUFFER NOT CLEARED 


PRINTB #4INTBIM 
PRINTX #INTB2M 
PRINTX #INTB3M 
MOV FFREE,R2 


MOV R1,R3 
INTBFL: PRINTX #INTB4M,R2, (R2) 
ADD #2,R2 ; 
DEC R3 
BGT INTBFL 
ENDMSG 
BGNMSG RWRDM1 
PRINTB #RWRDF 1, #F NAME 


PRINTB #RWRDF 2 
ENDMSG 


SGNMSG RWRDM3 
_  PRINTB #RWRDF 1, #FNAME 


SEQ 0051 


———————————— —— a _~ — _-——___, 
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58 012462 PRINTB #RWRDFS 

9 012502 ENDMSG 

61 012504 BGNMSG LOOP 

62 012504 PRINTB #LOOPO3,R2,2(R4) 

65 012532 ENDMSG 

65 012534 BGNMSG LOOPA 

66 012534 PRINTB #LOOP03,#140000,2(R4) 

67 012564 ENDMSG 

69 012566 BGNMSG INTERR 

70 012566 PRINTB #INTST3,R1 

a 012610 ENDMSG 

73 012612 BGNMSG CTABE 

74 012612 PRINTB #CTABEM, (R3) 

03 012634 ENDMSG 

77 012636 BGNMSG RSPTOE 

78 012636 PRINTB #RSPTOM, (RS) 

“9 012660 ENDMSG 

81 012662 BGNMSG RSPTME 

82 012662 PRINTB #RSPTMM, (R5).R1 

85 012706 ENDMSG 
000001 SVCINS= 1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
000001 SVCTST= 1 : LIST TEST TAGS, SHIFTED RIGHT 
000001 SVCSUB= 1 : LIST SUBTEST TAGS, SHIFTED RIGHT 
000001 SVCGBL= 1 t LIST GLOBAL TAGS, SHIFTED RIGHT 
000001 SVCTAG= 1 : LIST OTHER TAGS, SHIFTED RIGHT 


Oe 
a 
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CZUDCAO UDA AND DRIVE DIAGNO 
GLOBAL SUBROUTINES SECTION 
} .SBTTL GLOBAL SUBROUTINES SECTION 
i MEMORY ALLOCATION ERROR 
2 STHIS ROUTINE PRINTS A SYSTEM FATAL ERROR AND EXITS THE TEST 
7 012710 FMERR: ERRSF 1,FMERRM 
012710 104454 TRAP CSERSF 
012712 000001 .WORD 1 
012714 002631 .WORD FMERRM 
012716 000000 WORD 0 
8 012720 DOCLN ; ABORT 
012720 104444 TRAP C$DCLN 
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013746 002174 
160137 002176 
002766 


WOON BUSWNH-"OOONAUEWN— 


_ eo —_— ot I 


20 


Nm 
— 





;ALOCM 
SALLOCATE A BLOCK OF FREE MEMORY. REPORT ERROR IF MEMORY EXHAUSTED. 


; INPUTS: 
3 R1 = NUMBER OF WORDS TO ae 
; FFREE = FIRST FREE WORD IN MEMORY 
a, ~- SIZE OF FREE MEMORY AVAILABLE IN WORDS 
3 R1 = ADDRESS OF FIRST WORD OF ALLOCATED MEMORY 
; FFREE - NEW FIRST FREE WORD IN MEMORY 
FSIZE - SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 
7SYSTEM FATAL ERROR WILL BE REPORTED IF NOT ENOUGH MEMORY AVAILABLE 
SAND ENTIRE PROGRAM WILL BE STOPPED. 


ALOCM: PUSH FFREE SAVE FFREE AT ENTRY 
MOV FFREE,-(SP) 
SUB R1,FSIZE REDUCE SIZE OF FREE MEMORY 
BLT FMERR ;REPORT ERROR IF NOT ENOUGH MEMORY 
ADD R1,R1 CHANGE WORDS TO BYTES 
ADD R1,FFREE SCALCULATE NEW START OF FREE MEMORY 
POP R1 :GET START OF ALLOCATED MEMORY 


MOV (SP)+,R1 
RETURN 
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1 ;HCOMM 

2 z 

3 SALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WITH ONE 

4 OEE ENTROLL IN EACH RING. TO BE CALLED AFTER INITIALIZING 

; A CONTROLLER WITH SA.MSG=0 AND SA.CMD=0. 

7 3 INPUT S: 

8 R5 - ADDRESS OF CONTROLLER TABLE 

9 SQUTPUTS: 

10 : CONTROLLER TABLE POINTING TO HOST COMM AREA 

11 3 RING POINTERS TO PACKETS 

\¢ : R4 = ADDRESS OF HOST COMM AREA 

14 012746 012701 000166 HCOMM: MOV MHC. Sire R1 :GET SIZE OF AREA be ALLOCATE 

15 012752 004737 012722 CALL_ALOCM TALLOCATE THE MEMOR 

16 012756 010104 MOV R1,R4 GET ADDRESS OF HOST COMM AREA 
17 012760 010465 000016 MOV R4,C.RING(RS5) ;PLACE_IN pele ER TABLE 

18 012764 062701 000020 ADD #HC.MPK,R1 ;COMPUTE START OF MESSAGE PACKET 
19 012770 010164 000004 MOV R1,HC.MSG(R4) [PLACE _IN RING 

20 012774 062701 000064 ADD #<HC.CPK-HC.MPK>,R1 ;COMPUTE START OF COMMAND PACKET 
21 013000 010164 000010 MOV R1,HC.CMD(R4) [PLACE IN RING 

22 013004 000207 RETURN 
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ON 


:TINIT 

? s INITIALIZE VARIABLES FOR TEST 

5 : INPUTS: 

6 R1 = TEST NUMBER 

7 SOUTPUTS: 

# 3 LBUFS = CLEARED (DELETES ERROR LOG) 

9 ; FFREE = FROM FMEM 

10 : FSIZE = FROM FMEMS 

11 : TNUM = TEST NUMBER FROM R1 

1 ; ALL REGISTERS CLOBERED 

14 013006 004737 024414 TINIT: CALL RESET RESET ALL DEVICES 

15 013012 005037 002404 CLR LBUFS ;CLEAR ERROR LOG BUFFER POINTER 
16 013016 013737 002200 002174 MOV FMEM,FFREE ; INIT FFREE 

17 013024 013737 002202 002176 MOV FMEMS ,FSIZE INIT FSIZE 

18 013032 020137 002226 CMP R1,TNUM :SEE IF SAME TEST RUNNING 

19 013036 001007 BNE TINITR *IF NOT, GO TO READ DM PROGRAM 
20 013040 013737 002214 002174 MOV DMEND,FFREE ; CHANGE FREE MEMORY TO LEAVE 
21 013046 013737 002216 002176 MOV DMENDS,FSIZE ; DM PROGRAM ALLOCATED 
$§ 013054 000207 RETURN 
24 013056 TINITR: ;BRESET sRESET ALL UNITS 

25 013056 004737 013070 CALL READDM READ DM PROGRAM 

26 013062 ‘10137 002226 MOV R1,TNUM STORE TEST NUMBER TO SHOW DM PROGRAM IN MEMORY 
27 013066 ~—) RETURN 


———— eee 
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5 ;READDM 
Z READ A DM PROGRAM INTO FREE MEMORY 
5 ; INPUTS: 
6 5 R1 = TEST NUMBER 
7 OUTPUTS: 
8 : DMPROG = POINTER TO START OF DM PROGRAM IN MEMORY 
9 ; R1 - ot thean 
10 CARRY CLEAR IF NO ERROR, CARRY SET IF PROGRAM NOT FOUND 
| TALL REGISTERS BUT R1 ARE USED AND PREVIOUS CONTENTS DESTROYED 
13 013070 013737 002174 002212 READDM: MOV FFREE,DMPROG GET STORAGE ADDRESS 
14 013076 004737 023734 CALL _RDREC 
15 013102 103407 BCS README : CHECK IF ERROR 
16 0131046 013737 002174 002214 MOV FFREE,DMEND SAVE END OF ADDRESS OF DM PROGRAM 
17 013112 013737 002176 002216 MOV FSIZE,DMENDS ; AND CURRENT SIZE OF FREE MEMORY 
‘3 013120 000207 RE TURN 
20 013122 README: ERRSF 2,DMNF ;REPORT DM PROGRAM NOT FOUND 
013122 104454 TRAP CSERSF 
013124 000002 . -WORD 2 
013126 005245 «WORD DMNF 
013130 000000 -WORD 0 
21 013132 DOCLN 
013132 104444 TRAP C$DCLN 
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52 
22 013156 


31 013214 
32 
33 
34 
35 013216 
36 


40 013222 


010137 
005037 


013737 
013705 
005065 


002230 
002232 


002230 
900002 
021204 
002232 
000046 
002234 


002232 
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002234 


002074 


SEQ 0058 


: RUNDM 


[LOAD AND RUN A DM PROGRAM IN THE CONTROLLERS. RETURN WHEN mt 
;DM PROGRAMS HAVE TERMINATED. 


INPUTS: 
: TSTTAB = POINTER TO FIRST CONTROLLER TABLE 
R1 - + ete OF CONTROLLERS TO TEST 
S IMPLICIT INPUTS 
5 DMPROG - “POINTER TO START OF DM PROGRAM IN MEMORY 
OUTPUTS: 


Z SET IF NO CONTROLLERS SUCCESSFULLY STARTED 
TALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 


RUNDM: MOV R1,URUN 7 SAVE NUMBER OF UNITS TO RUN 


CLR URNING ;CLEAR NUMBER OF UNITS RUNNING 
;LOAD DM PROGRAM INTO EACH CONTROLLER 
V URUN,UCNT :SET COUNTER OF UNITS 
MOV TSTTAB,R5 GET FIRST ee TABLE 
LDDM: CLR C.FLG(RS) CLEAR ALL FLAGS 
MOV C.UNIT(RS),L$LUN :SEE IF UNIT" TO BE TESTED 
BMI LDNEXT :1F NOT, DON'T LOAD THIS UNIT 
ASSUME CT.AVL EQ BIT15 
CALL LOADDM ;LOAD THE DM PROGRAM 
BEQ LDNEXT IF ERROR, GO TO NEXT CONTROLLER 
INC URNING IF NO ERROR, COUNT UNIT RUNNING 
LDNEXT: ADD #C.SIZE,R5 :MOVE TO NEXT CONTROLLER TABLE 
DEC UCNT CHECK IF MORE CONTROLLERS 
BNE LDDM LOAD NEXT 
CHECK IF ANY CONTROLLERS LOADED 
TST URNING sANY UNITS LOADED? 


THE DM PROGRAMS ARE NOW IN CONTROL 
:RESPDM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 


RETURN 
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GLOBAL SUBROUTINES SECTION 


RESPDM 

3 RESPOND TO DM REQUESTS. RETURN WHEN ALL DM PROGRAMS 

: ;HAVE TERMINATED. 

6 013224 013705 002210 RESPDM: MOV TSTTAB,RS 2GET CONTROLLER ttt ADDRESS 

7 013230 013737 002230 002234 MOV URUN,UCNT ;SET COUNTER OF UNITS 

8 013236 016504 000016 RESPCT: MOV C.RING(RS) ,R4 :GET HOST COMM AREA ADDRESS 

9 013242 032765 000002 000014 BIT #CT. ae C.FLG(RS) CHECK IF PROGRAM RUNNING 

10 013250 00144 BEQ RSPNX IF NOT, LOOK AT NEXT 

11 013252 016537 000002 002074 MOV C. UNIT (RS) , LSLUN STORE UNIT NUMBER UNDER TEST 

12 013260 032765 000010 000014 BIT #CT.MSG,C. FLGCRS) sSEE IF rg ge! RECEIVED 

13 013266 001077 BNE RSPIN :1F SO, LOOK AT PACKET 

14 013270 032765 000004 000014 BIT #CT.CMD,C.FLG(RS) SEE IF COMPAND HAS BEEN SENT 

1? 013276 001540 BEQ RSPOU IF NOT, SEND ONE 

4 CHECK IF UDA STILL RUNNING 

19 013300 011503 MOV (R5) ,R3 GET ADDRESS OF UDAIP 

20 013302 016301 000002 MOV 2(R3), R1 [LOOK AT UDASA REGISTER 

21 013306 001405 BEQ R :1F ZERO, UDA STILL RUNNING 

22 013310 ERRDF “55. M0. RSPTME [REPORT UDA HAS FATAL ERROR 
013310 104455 TRAP CSERDF 
013312 000043 -WORD 35 
013314 000000 -WORD 0 
013316 012662 «WORD RSPTME 

? 013320 000453 BR RSPDRP DROP CONTROLLER FROM TESTING 

4 CHECK FOR TIMEOUT OF RESPONSE 

27 013322 RSPTM: 

33-013322 005737 002352 TST KW. ae SEE IF A CLOCK ON SYSTEM 
0133 001416 BEQ RSPNTO DON'T TIME IF NO CLOCK 

35 0133 023765 002364 000042 CMP ae EL+2,C. TOH(RS) : COMPARE TO TIMEOUT COUNTER 

36 013336 101005 BHI RSPTMO 

37 013340 001011 BNE R SPNT 0 

38 013342 023765 002362 000040 CMP KW.EL,C.TO(RS) 

39 013350 103405 BLO RSPNTO :1F TOO MUCH TIME ELAPSED SINCE LAST INTERRUPT 

40 013352 RSPTMO: ERRDF 36,0,RSPTOE REPORT TIMEOUT ERROR 
013352 104455 TRAP CSERDF 
013354 «WORD 36 

- -073 3556 -_—eer ©-- ~ -- © o-oo = er —2« © ——s 2 «- © e- ae —_—_——<- =< = 2 - ) — =< «@ -_ — Q°———— oe 
0133 012636 «WORD RSPTOE 

41 013362 32 BR RSPDRP :DROP CONTROLLER FROM TESTING 

42 013364 RSPNTO: 

43 013364 BREAK sALLOW DRS TO SEE TERMINAL INPUT 

“ 013 104422 TRAP CS$BRK 

rr ;CHECK FOR TIME TO PRINT STATISTICAL REPORT 

47 013 005737 002352 RSPNXT: TST KW.CSR ANY CLOCK ON SYSTEM? 

48 013372 14 BEQ RSPNRP BYPASS IF NOT 

49 013374 023737 002364 002374 CMP KW. EL ve. STIME+2 : A STATISTICAL REPORT 

50 013402 10100 BHI RSPR 

51 013404 001013 BNE RSPNR 

52 013406 023737 002362 002372 CMP KW.EL, PST IME 

53 013414 103407 BLO RSPNRP 





SS 


—_——_——_ 
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54 013416 RSPRPT: DORPT PRINT THE REPORT 


TRAP CS$DRPT 





MOV #15.*60. ,RO SET TIME FOR NEXT REPORT 
MOV #STIME,R1 zAT 15 MINUTES FROM NOW 
CALL SETTO 


;SWITCH TO NEXT CONTROLLER 
RSPNRP: ADD #C.SIZE.R5 
DEC UCNT 
BNE RESPCT 
BR RESPDM 
REMOVE A CONTROLLER FROM TESTING 
RSPDRP: BIC #CT.RN¢CT.MSG,C.FLG(R5S) 
DEC URNING 


BNE RSPNXT 
RE TURN 


sMOVE TO NEXT TABLE 
2 CHECK IF MORE adler ga 


ROLLE 
LOOK AT FIRST CONTROLLER AGAIN 


CLEAR PROGRAM RUNNING 

REDUCE RUNNING CONTROLLERS COUNT 
71F ANY STILL RUNNING, LOOK AT THEM 
SELSE RETURN TO TEST SECTION 


—“ODODBNOME wh 


—-- 


ee ed ed wt ed 
DWyOuUE wr 


032765 
001433 


000204 
000020 


000205 
000030 


000037 


000044 


000020 


000014 


000032 


000020 


000014 
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CONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 


CHECK FOR PROPER OPCODE IN END PACKET 


RSPIN: MOV #OP.END+OP.SSD,RO 
BIT #CT.REQ,C.FLG(RS) 
BEQ RSPMWR 
a. #OP ..END+OP.RSD ,RO 
RSPMWR: CMPB RO,HC.MPK+P.OPCD(R4) 


Bro. RSPSTS 
ERRHRD 25,RSPPKE 


BR RSPDRP 
;LOOK AT STATUS CODE 
RSPSTS: BIT #ST.MSK,HC.MPK+*P.STS(R4) 


BEQ RSPREF 
ERRHRD 26,RSPSTE 


BR RSPDRP 
CHECK FOR EXPECTED REFERENCE NUMBER 
RSPREF: CMP C. ~ A a HC .MPK+P. CRF (R4) 
ERRHAD 31 31, “RSPPRE 


BR RSPDRP 


: CHECK IF RESPONSE FROM SEND OR RECEIVE 


RSPPTW: BIT ib REQ,C.FLG(RS) 
RSPOU: BEQ RSPOUT 


GET SEND DATA END PACKET OPCODE 
;LOOK IF SEND DATA OR RECEIVE DATA 


; CHANGE TO RECEIVE DATA END PACKET OPCODE 
COMPARE TO OPCODE IN END PACKET 


REPORT OPCODE ERROR IN RESPONSE PACKET 
TRAP CSERHRD 


) 2 
“WORD RSPPKE 
;DROP UNIT FROM TESTING — 
:CHECK FOR STATUS CODE ST.SUC (ZERO) 
;REPORT ERROK STATUS CODE 
TRAP  CSERHRD 
.WORD 26 
“WORD RSPSTE 
:DROP UNIT FROM TESTING © 
ZCHECK IF CORRECT REF NUMBER 
TRAP  CSERHRD 
.WORD 31 
“WORD RSPPRE 


:DROP UNIT FROM TESTING — 
DATA COMMAND 


CHECK IF RESPONSE FROM DM PROGRAM 
;LOOK AT REQUEST NUMBER IF SO 





SEQ 0061 
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SS 


} MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 
3 013602 016401 000260 RSPPT2: MOV HC.BF2(R4) ,R1 GET REQUEST NUMBER 
4 013606 020127 000017 CMP R1,ADSPSIZ CHECK IF IN EXPECTED RANGE 
5 013612 103405 BLO RSPPT 
6 013614 ERRHRD 32,RSPPNE ;BAD REQUEST NUMBER 
013614 104456 TRAP CSERHRD 
013616 000040 . WORD 
013620 003044 «WORD RSPPNE 
013622 000000 ° 0 
4 013624 000711 BR RSPDRP ;DROP UNIT FROM TESTING 
9 013626 012700 000004 RSPPT3: MOV #OP.SSD,RO ;BUILD A SEND DATA COMMAND PACKET 
10 013632 004737 021624 CALL BLDCMD ;__FOR ANSWER TO DM PROGRAM 
11 01 012700 000164 MOV #KC.BF1,RO POINT TO yt IN PACKET 
12 013642 004737 022006 CALL _CLRBUF ; AND CLEAR BUFFER 
13 013646 010403 MOV R4,R3 7R3 POINTS TO COMMAND BUFFER 
14 013650 062704 000074 ADD #HC.BSZ.R4 :R4 POINTS TO MESSAGE BUFFER 
15 013654 011401 MOV (R4),R1 >GET REQUEST NUMBER 
16 013656 012423 MOV (R4)+, (R3)+ [PUT REQUEST NUMBER INTO COMMAND PACKET 
17 013660 060101 ADD R1,R1 ;DOUBLE REQUEST NUMBER 
18 013662 004771 013772 CALL @RSPDSP(R1) CALL REQUESTED ROUTINE 
19 013666 001270 BNE RSPDRP ;ROUTINE RETURNS Z CLEAR TO DROP UNIT FROM TESTING 
s ; Z SET IF COMMAND READY TO SEND TO UNIT 
$e ; SEND COMMAND BACK TO UDA 
24 013670 042765 000010 000014 RSPOUT: BIC ACT.MSG,C.FLG(RS5) CLEAR MESSAGE RECEIVED FLAG 
25 013676 032765 000020 000014 BIT #CT.REQ,C.FLG(RS) CHECK WHICH COMMAND TO SEND 
$ 013704 001014 BNE RSPOU2 BRANCH IF RESPONSE TO REQUEST 
28 013706 012700 000005 MOV #OP.RSD,RO ;BUILD RECEIVE DATA COMMAND 
29 013712 004737 021624 CALL BLDCMD 
3716 012700 000260 MOV #HC .BF2,RO POINT TO MESSAGE BUFFER 
31 013722 004737 022006 CALL CLRBUF AND CLEAR IT 
32 013726 052765 000020 000014 BIS” #CT.REQ,C.FLG(RS) TSET REQUEST BIT 
a 013734 000403 BR RSPOU3 
35 013736 042765 000020 000014 RSPOU2: BIC MCT.REQ,C.FLG(RS) :CLEAR REQUEST BIT 
36 013744 RSPOU3: 
37 013744 004737 021710 _ SND CMD SEND COMMAND TO UDA 
38 013750 012700 000264 V #3. He -RO SET TIMEOUT FOR 3 MINUTES 
39 013754 010501 MOV R5, 
40 013756 062701 000040 ADD AC. 0, R1 PUT TIME IN CONTROLLER TABLE 
41 013762 004737 022660 CALL SETTO 
42 013766 000137 013366 JMP RSPNXT zNOW WAIT FOR END PACKET 
re RESPONSE REQUEST DISPATCH TABLE 
46 013772 014030 RSPDSP: .WORD TIMSIZ ; 0. SET UP FREE MEMORY Ae ADDRESS TESTING 
47 013774 014150 -WORD T2DLL ; 1. PROVIDE DIAGNOSTIC PROGRAM FOR DISK DRIVE 
48 013776 014314 -WORD T2CMD 3 ¢. G INTERVENTION COMMAND 
49 014000 015150 -WORD T4MPRM ; 3. TELL DATA PATTERN 16. 
50 014002 015172 -WORD T4UPRM : 4. TELL UNIT PARAMETERS, CLEAR CONTENTS 
51 014 015520 -WORD 14881. : 5. TELL BAD BLOCKS (FIRST 14) 
52 014006 015550 -WORD T4BB2 :; 6. TELL BAD BLOCKS (LAST TWO) 
53 014010 015600 «WORD T4SOFT ; 7. ADD TO SOFT ERROR AND ECC COUNTS 
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54 014012 015626 . WORD roeve 
15646 -WORD T4MXFR 
«WORD UTOTST 


016466 -WORD MESSAG 
016576 -WORD DONE 


000017 DSPSIZ=<.-RSPDSP>/2 





SEQ 0063 


° pet 1000 TO SEEK COUNT 

. ADD TO MEGABITS READ AND WRITE COUNTS 

- TELL WHICH DRIVES TO TEST 

. REPORT ERROR MESSAGE 

- REPORT ERROR MESSAGE AND COUNT HARD ERROR 
. PRINT A DESCRIPTIVE MESSAGE 

« MARK DM PROGRAM AS NO LONGER RUNNING 


;LEGAL NUMBERS ARE LOWER THAN THIS 
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} ;NORMAL MAINTENANCE READ BUFFER DESCRIPTION 
3 ;BYTE OFFSET FROM 
4 START OF BUFFER Qusseseesteenessseeesrsensersse= + 
2 ; 0 : REQUEST NUMBER ! USED TO SELECT ROUTINE 
L, + wwe eo eee eee eee eee esos soesrer= + 
5 ; 2 : DATA ARGUMENT #1 ! R4& CONTAINS THIS ADDRESS 
s tw m ere er ee ew ee ee eee sees ese sere" + 
9 : & : DATA ARGUMENT #2 : 
10 ; PSR e Cee SE SETS TEESE + 
1) ; 6 : DATA ARGUMENT #3 : 
S ewe eee eee eee eee oe eee eee eros = + 
i7 ; 8 : DATA ARGUMENT #4 : 
5 teoewooo eee oe ee ee oee sooo ees eseses= + 
7 : 10 ; DATA ARGUMENT #5 . 
hd $row ere eee ee eee eee eee eee See e="" + 
4 ; 12 : DATA ARGUMENT #6 : 
: fence ee ne ee nnn eee ne eee nt 
19 ; 14 ; DATA ARGUMENT #7 : 
20 ; a EP EgmarE aye + 
21 3 16 : DATA ARGUMENT #8 : 
22 ; a Te ErE—- em + 
23 : 18 : DATA ARGUMENT #9 } 
ch 5 teoweroorrereesoeooossossssess== + 
25 ; 20 : DATA ARGUMENT #10 : 
26 ; qe gEeceTeeeesnereneneaeeE + 
27 3 22 : DATA ARGUMENT #11 : 
28 3 (eewrweereccerescssecssesesonsse + 
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ee eee 
SVWNAUSWN—-OVDONAUS WR 


sNORMAL PSEUDO=TERMINAL IN PACKET DESCRIPTION GIVEN IN RESPONSE TO ABOVE PACKET 
;BYTE OFFSET FROM 


Be Se Se Be Se Se Be Be Be Se Be He Be Be Be Be Be Be Be Be Be Be Se Be 


: START df teem T 


2 
4 
6 
8 


were fe eee eee ee ee ee ee ee eee ooooeon+} 


; DATA ARGUMENT #1 : 


+ were er ee eee eee eee eee ee oe ee ooo on+ 


: DATA ARGUMENT #2 : 
. 
; DATA ARGUMENT #3 : 


S diaaeaierinadieiendiieateatantnetetntmdaatetamemtededa tate teteteotedatie a 


; DATA ARGUMENT #5 ; 
[DATA ARGUMENT #6 ! 
| DATA ARGUMENT #7 ' 
| DATA ARGUMENT #8 : 
{DATA ARGUMENT #9 ! 
| DATA ARGUMENT #10! 
nena a 


SEQ 0065 


ECHOED FROM REQUEST PACKET 


R3 CONTAINS THIS ADDRESS 


ALL _ DATA ARGUMENTS ARE Bn 

CONTAINING ZEROS UNLESS 

SPECIFICALLY INDICATED BY 
ROUTINE. 


RESPONSE 
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26 014030 
27 014034 


Mmron--— 


DI 
CTI 


013701 
013702 


010111 
01 
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ON 


002174 
002176 


000002 


002174 
002176 


002174 
000002 


002120 


MEMFIL: MOV R1,(R1) 
ADD 


— - DM REQUEST 0 


;SET UP MEMORY FOR ADDRESS TESTING FROM UDA. 
PLACE het 3 OF EACH LOCATION INTO EACH LOCATION IN FREE 
SME RETURN FIRST LOCATION OF FREE MEMORY IN CMD.02 (LOW BITS) 
7 AND CMD. pe (HIGH aes RETURN LAST LOCATION OF FREE MEMORY IN 
:CMD.04 AND CMD.05. O RETURN FIRST CXISTANT LOCATION IN CMD.06 
;AND CMD.07; LAST EXISTANT LOCATION IN CMD.08 AND CMD.09. 
; INPUTS: 
: RS = CONTROLLER TABLE ADDRESS 
R4 ~- MESSAGE PACKET DATA ADDRESS (POINTING TO MSG.02) 
 auuter” - COMMAND PACKET DATA ADDRESS (POINTING TO CMD.02) 


COMMAND PACKET CONTAINING: 
(R3) LOW ADDRESS BITS OF FIRST WRITABLE ADDRESS 
. (R3) HIGH ADDRESS BITS OF FIRST WRITABLE ADDRESS 


-(R3) LOW ADDRESS BITS OF LAST WRITABLE ADDRESS 
. (R3) HIGH ADDRESS BITS y LAST WRITABLE ADDRESS 


4.(R3) HIGH ADDRESS BITS OF LAST READABLE ADDRESS 


o 
° 
° 
° 
° 
° 
° 

o 
° 
’ 
’ 
Ld 
’ 
. 
° 
° 


TIMSIZ: MOV FFREE,R1 :GET FIRST ADDRESS OF FREE MEMORY 
MOV FSIZE,R2 GET SIZE 


;FILL MEMORY WITH ADDRESS PATTERN 


;WRITE DATA INTO LOCATION 
#2,R1 fe gs ADDRESS TO NEXT LOCATION 
OUNT THE WORDS 


DEC Re 
BNE MEMF IL SFILL ALL WORDS 
;SEND LOCATION OF FREE MEMORY TO UDA 


MOV FFREE,(R3)+ LOAD FIRST ADDRESS OF FREE MEMORY 


CLR (R3)+ HIGH ORDER BITS ARE ZERO 
MOV FSIZE,RO “GET SIZE OF FREE MEMORY 
ASL RO :CONVERT TO BYTES 
ADD FFREE .RO *COMPUTE LAST LOCATION 
MOV RO, (R3)+ :LOAD LAST LOCATION 
CLR (R3)+ =CLEAR HIGH ORDER BITS 
:SEND LOCATION OF READABLE MEMORY 
CLR (R3)+ :SEND ZERO AS START OF READABLE MEMORY 
e + 
MOV L$HIMEM,RO :GET HIGH MEMORY ADDRESS 


CLR R1 :CLEAR HIGH BITS 
;SHIFT LEFT 6 PLACES 


C 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE So-1 


GLOBAL SUBROUTINES SECTION 
58 014126 


65 014146 





SET LOW ORDER BITS 
PUT INTO BUFFER 


MOV R1,(R3)+ 
SEZ 
RETURN 


SEQ 0067 


D 6 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 40 SEQ 0068 
GLOBAL SUBROUTINES SECTION 


\ :T2DLL = DM REQUEST 1... 
3 ‘PROVIDE DIAGNOSTIC TO DOWNLINE LOAD INTO DISK DRIVE. 
5 : THE uPA MAY BE USED TO GET THE DIAGNOSTIC IF THE SYSTEM LOAD DEVICE 
6 31S THE UDA. THIS ACTION WILL CAUSE A REINITIALIZATION OF THE UDA 
? OMe RING STRUCTURE MOVED. SINCE TIIIS PROGRAM HAS NO WAY 
» [DETERMINE IF THE UDA IS USED, IT WILL ALWAYS ASSUME IT IS USED AND 
9 ‘WILL INITIALIZE AND RELOAD THE DM PROGRAM AFTER THEREADING THE 
10 “DIAGNOSTIC. THE OUTPUTS OF THIS ROUTINE ARE STORED AND SENT TO THE 
1 [DM PROGRAM IN THE UTOTST REQUEST. 
13 : INPUTS: 
14 : RS = CONTROLLER TABLE ADDRESS 
15 : R4 = MESSAGE DATA ADDRESS 
16 : (R4) DRIVE NUMBER 
17 : 2.(R4) A VALUE THE DM PROGRAM WISHES RETURNED 
18 : 4.(R4) REGION TO WHICH PROGRAM IS TO BE LOADED IN DISK 
19 ; 6.(R4) 2 WORD PROGRAM NAME IN RADSO 
20 : R3 - COMMAND DATA ADDRESS 
21 S OUTPUTS: 
22 ; COMMAND PACKET COULD CONTAIN THE FOLLOWING: 
23 : (R3) ONE IF PROGRAM PROVIDED, TWO IF PROGRAM NOT AVAILABLE 
24 : 2.(R3) DRIVE NUMBER ‘ 
25 : 4.(R3) COPY OF THE VALUE FROM DM PROGRAM 
26 : 6. (R3) REGION TO WHICH PROGRAM IS TO BE LOADED 
27 : 8.(R3) ADDRESS OF FIRST BYTE TO BE DOWNLINE LOADED 
28 : 10. (R3) HIGH ORDER BITS OF ADDRESS 
29 : ee 6R3) BYTE COUNT OF PROGRAM TO BE DOWNLINE LOADED 
31 ‘THIS PROGRAM WILL NOT SEND A COMMAND PACKET IN RESPONSE TO THIS REQUEST. 
32 ; THE UDA WILL BE REINITIALIZED AND THE DM PROGRAM RELOADED. THEN THIS DATA 
33 ‘WILL BE APPENDED TO THE NEXT UTOTST REQUEST. 
? ;COPY REQUEST DATA TO STORAGE 
37 014150 005037 002412 T2DLL: CLR DLL :CLEAR CONTROL WORD 
38 014154 012437 002414 MOV (R4)+,DLLDR “DRIVE NUMBER 
39 014160 012437 002416 MOV (R4)+.DLLV [VALUE FROM DM 
40 014164 012437 002420 MOV (R4)+.DLLR SREGION 
41 014170 012437 002430 MOV (R4)+.DLLNAM *PROGRAM NAME 
4@ 014174 012437 002432 MOV (R4)+,DLLNAM+2 + (TWO WORDS) 
44 ;RESET UDA AND READ DM PROGRAM 
46 014200 005075 000000 CLR a(RS) SRESET THE UDA 
47 014204 013737 002174 002422 MOV FFREE,DLLADR [GET ADDRESS WHERE PROGRAM 
48 014212 005037 002424 CLR DLLADR+2 : TO BE STORED 
49 014216 013737 002176 002426 MOV FSIZE,DLLSIZ SSAVE CURRENT SIZE OF MEMORY 
50 014224 004737 023674 CALL RDDLL :READ DLL PROGRAM FROM DATA FILE 
51 014230 103002 BCC 1$ PROGRAM NOT FOUND IF CARRY SET 
52 014232 005237 002412 INC DLL “RETURN 1 IF PROGRAM FOUND 
53 014236 005237 002412 1$: INC DLL ‘RETURN 2 IF PROGRAM NOT FOUND 
54 014242 013737 002426 002176 MOV DLLSIZ,FSIZE [COMPUTE SIZE OF DLL PROGRAM 
55 014250 013737 002174 002426 MOV FFREE,DLLSIZ t AND RESTORE ORIGINAL FFREE 
56 014256 163737 002422 002426 SUB DLLADR,DLLSIZ + AND FSIZE VALUES 


57 014264 013737 002422 002174 MOV DLLADR,FFREE 





ae 





CZUDCAO UDA AND DRIVE DIAGNOST!I MACRO V04.00 


GLOBAL SUBROUTINES SECTION 


58 014272 


59 014274 
14300 


60 0 
61 014304 


62 014306 
63 014312 


000001 
013134 
013224 


2$: 


ee 
23-JUL-81 15:14:57 PAGE 40-1 


TST (SP)+ 
MOV #1,R1 
CALL_RUNDM 


BEQ 2$ 
JMP RESPDM 
RETURN 


POP Ke TURN ADDRESS OFF STACK 
;RUN THE DM PROGRAM AGAIN 


SEQ 0069 


; F 6 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL=-81 15:14:57 PAGE 41 SEQ 0070 
GLOBAL SUBROUTINES SECTION 


} :T2CMD = DM REQUEST 2 
7 :GET MANUAL INTERVENTION COMMAND 
5 : INPUTS: 
6 : RS = CONTROLLER TABLE aiDDRESS 
? : R4 = MESSAGE DATA ADDRESS 
& : (R4) DRIVE NUMBER 
9 : 2.(R4) OPERATION CODE 
10 : Q ON FIRST REQUEST FOR DRIVE. ECHO OF PREVIOUS RESPONSE ALL OTHER TIMES. 
11 : IF OPERATION CODE = 2 
12 : 4.(R4) DATA BYTE READ (TO BE PRINTED) 
13 : R3 = COMMAND DATA ADDRESS 
14 OUTPUTS: 
15 : COMMAND DATA FILLED WITH THE FOLLOWING: 
16 : (R3) OPERATION CODE 
17 : - EXIT 
18 : 1 = WRITE 
19 : 2 = READ 
20 : 3 = DIAGNOSE 
21 IF OPERATION CODE = 1, 2 OR 3 
22 2.(R3) REGION NUMBER 
23 4.(R3) OFFSET INTO REGION 
24 : IF OPERATION CODE = 
25 ; 6. (R3) DATA BYTE 
26 ; Z SET IF DATA RETURNED 
t4 : Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
29 014314 032737 000200 002160 T2CMD: BIT #SM. MAN. SFPTBL+SO.BIT ;LOOK AT MANUAL INTERVENTION MODE 
30 014322 001002 BNE T2CMD sEXIT IF NOT WANTED 
31 014324 000137 015122 JMP TSCMDX 
32 014330 T2CMDM: MANUAL MANUAL INTERVENTION ALLOWED? 
014330 104450 TRAP CSMANI 
33 014332 BCOMPLETE T2CMDO PRINT WARNING IF NOT 
014332 103412 BCS T2CMDO 
34 014334 T2CMD9: PRINTF #T2WARN 
014334 012746 010312 MOV #T2WARN, (SP) 
014340 012746 000001 MOV #1,-(SP) 
014344 010600 MOV SP,R 
014346 104417 TRAP CSPNTF 
014350 062706 000004 ADD #4,SP 
35 014354 000137 015122 JMP T2CMDX 
36 014360 012401 T2CMDO: MOV (R4)+,R1 GET DRIVE NUMBER 
37 014362 012402 MOV (R4)+,R2 GET OPERATION CODE 
38 014 001056 BNE T2CMD2 ‘BRANCH IF NOT ZERO 
39 014366 017414 CALL GTDRVT GET DRIVE TABLE ADDRESS 
40 014372 001401 BEQ 1$ CHECK IF DRIVE FOUND 
41 014374 000207 RE TURN RETURN WITH Z CLEAR IF NOT 
42 014376 1$: PRINTF #T2CMS1,D.UNIT(R4),(R5), (Ra) PRINT DESCRIPTION 
014376 011446 MOV (R4) ,-(SP) 
014400 011546 MOV (R5) .-¢ 
014402 016446 00 MOV D.UNIT(R4) ,-(SP) 
014406 012746 010414 MOV #T2CMS1,-(SP) 
014412 012746 000004 MOV #4,~-(SP) 
014416 010600 MOV SP.RO 
014420 104417 TRAP CSPNTF 
014422 062706 000012 ADD #12,SP 


BSL Sle ae : 


acnmeeees 


-_——- 
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acl os mp 2 UDA AND DR SEQ 0071 
ecan. SUBROUTINES SECTION 
43 014426 PRINTF #T2CMS2 
014426 012746 010523 MOV #T2CMS2,-(SP) 
| 014432 013746 000001 MOVs #1-=( SPS 
014436 010600 MOV SP.RO 
| 014440 104417 TRAP —- CSPNTF 
014442 062706 000004 ADD #4 ,SP 
64 014446 PRINTF #T2CMS3 
014446 012766 010640 ,. MOV =: #T2CMS3,=(SP) 
014452 012746 000001 -: MOV #1,-(SP) 
014456 010600 MOV Y 
914460 104417 TRAP 
014462 062706 000004 ADD #4,SP 
45 014466 PRINTF #T2CMS4 
014466 012746 010707 MOV AT2CMS4,=(SP) 
014472 012746 000001 MOV #1,-(SP) 
014476 010600 MOV SP.RO 
014500 104417 TRAP —- CSPNTF 
014502 062706 | ADD #4 ,SP 
46 014506 005037 002376 CLR T2WRR ZCLEAR ALL STORAGE WORDS 
47 014512 005037 0024 CLR T2wRO 
48 014516 005037 002402 CLR T2DR 
50 014522 022702 000002 T2CMD2: CMP #2,R2 :SEE IF LAST OPERATION WAS READ 
51 014526 001055 BNE T2CMDQ SBRANCH IF NOT TO QUESTION 
52 014530 112737 000040 002172 MOVB #* ,ERR :PRINT ONE SPACE 
53 014536 PRINTF #ERRONE. FERAL 
014536 012746 002172 MOV MERRCHR ,-(SP) 
074542 012746 005316 MOV #ERRONE ,- (SP) 
014546 012746 MOV #2,-(SP) 
014552 01 MOV SP RO 
014554 104417 TRAP _— CSPNTF 
014556 062706 ADD #6,SP 
54 01456e 013701 002376 MOV T2WRR,R1 :PRINT REGION 
55 0145 737 020420 CALL T2PNiW 
56 014572 013701 2400 MOV T2WRO,R1 :PRINT OFFSET 
57 014576 004737 020420 CALL T2PNTW 
58 014602 112737 57 002172 MOVB #'/,ERRCHR :PRINT A SLASH 
59 014610 oo PRINTF MERRONE , #ERRCHR 
014610 012746 0zi72 MOV #ERRCHR,-(SP) 
014614 012746 005316 MOV #ERRONE ,- (SP) 
014620 012746 2 MOV #2,-(SP) 
014624 01 MOV SP.RO 
014626 104417 TRAP —« CSPNTF 
14630 062706 000006 ADD #6,SP 
60 014634 012401 MOV (R4)+,R1 :PRINT THE DATA 
61 014636 737 020472 CALL T2PNTB 
62 014642 PRINTF #ERRNL sEND THE LINE 
14642 012746 005321 MOV MERRNL .-(SP) 
014646 012746 000001 MOV #1,-(SP) 
014652 010600 MOV ; 
014654 104417 TRAP 
3 914656 062706 000004 - ADD a4 ,SP 
3 NOW ASK FOR COMMAND INPUT 
66 014662 T2CMDQ: GMANID T40PT7,TEMP,A,-1,1,20..NO :ASK FOR COMMAND 
014662 104443 TRAP —- C$GMAN 


pts ey 


| 
: 


CZUDCAO UDA AND DRIVE 
GLOBAL SUBROUTINES SEC 


at (OE 9 
AVASSRLKGRASS 


01 
014702 


67 014702 
68 014706 
69 014710 


72 014722 


79 014754 
014756 


014760 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ed ad ed od = = 


DI 
TI 
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SEQ 0072 | 
BR 10000$ 
WORD TEMP 
~ WORD TSCODE 
~WORD T40PT7 
~WORD -1 
. WORD TSLOLIM 
~ WORD TSHILIM 


10000$ : 
;GET POINTER TO STRING 
;GET COMMAND CHARACTER 


STORE DIAGNOSE OPERATION C 
;GET REGION FROM COMMAND 


;MAKE SURE AT END OF LINE 


sCHECK IF READ 


CHECK IF WRITE 
: IF NOT = ERROR 


;GET DATA BYTE 
ERROR IF NO DATA 


;OR GREATER THAN TWO DIGITS 
;STORE DATA BYTES IN BUFFER 
PUT REGION AND OFFSET 
:__INTO BUFFER 


sIF SO, 


: INCREMENT OFFSET 


— cme ww es woe —w wee © coe ~s eeeees 


SAVE REGION 
SAVE OFFSET 


REPORT ERROR MESSAGE 


000406 
002260 
000142 
004176 
177777 
000001 
000024 
012701 002260 MOV #TEMP,R1 
112100 MOVB (R1)+,RO0 
022700 000105 CMP #'E,R 
001415 BEQ T2CMDV 
022700 000104 CMP #'D,RO 
001016 BNE T2CMD3 
012713 000003 MOV #3, (R3) 
004737 020620 CALL T2GNUM 
001402 BEQ 1$ 
010437 002402 MOV R4,T2DR 
013763 002402 00002 18: MOV T2DR,2(R3) 
004737 020620 T2CMDV: CALL T2GNUM 
001064 BNE T2CMDE 
000461 BR T2CMDX 

; COMMAND MUST BE EITHER READ OR WRITE 
012713 000002 12CMD3: MOV #2, (R3) 
022700 000122 CMP #°R,RO 
001415 BEQ T2ChDR 
022700 000127 CMP #'W,RO 
001053 BNE T2CMDE 
012713 000001 MOV #1, (R3) 

737 020620 CALL T2GNUM 
001446 BEQ T2CMDE 
162700 000002 . SUB #2,RO 

3043 BGT TOCMDE 
010463 000006 MOV R4,6(R3) 
013763 002376 000002 T2CMPDR: MOV T2WRR,2(R3) 
013763 002400 000004 MOV ToWRO,4(R3) 
021302 CMP (R3),R2 
001002 BNE T2CMDN 
005263 INC 4(R3) 

37 —020620— .. ... J2CMDN: 4 ae 
001411 BEQ T2CMDW 
010463 000002 MOV R4,2(R3) 
005063 000004 CLR 4(R3) 
004737 020620 CALL T2GNUM 
001402 BEQ T2CMDW 
010463 000004 MOV R4,4(R3) 
004737 020620 T2CMDW: CALL T2GNUM 
001010 BNE T2CMDE 
016337 000002 002376 MOV 2(R3),T2WRR 
016337 000004 002400 MOV 4(R3).T2WRO 
000264 T2CMDX: SEZ 
000207 E TURN 

T2CMDE: PRINTF #T2CMS5 
012746 011022 
012746 000001 





88 


MO 


ODE 


© ° wo ew, ~~ eepeen es ae eo we oe oo 


rier ~ (SP) 
#1 ,-(SP) 





CZUDCAO UDA AND 
GLOBAL SUBROUT] 
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DRIVE DIAGNOSTI MACRO V04.00 23=JUL=81 15:14:57 PAGE 41-3 
NES SECTION 
01060C 
104417 
062706 000004 
000645 BR T2CMDO 


. 


MOV SP,RO 
TRAP CSPNTF 
ADD #4 ,SP 
;GO ASK AGAIN 


SEQ 0073 
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DI 
TION 
1 ; T6MPRM = DM REQUEST 3 
* sREQUEST FOR TEST 4 CONTENTS OF DATA PATTERN 16. 
& 3 
5 ; INPUTS: 
6 3 RS = CONTROLLER TABLE ADDRESS 
7 ; R4 = MESSAGE DATA ADDRESS 
8 3 (NO DATA) 
+ : R3 = COMMAND DATA ADDRESS 
10 ; OUTPUTS: 
11 : COMMAND DATA FILLED ao THE FOLLOWING: 
i¢ 3 (R3) NUMBER OF WORDS IN DATA PATTERN 16 
uz ; a (RS) DATA IN PATTERN 16 
15 : 32. (R3) 7 
i$ é Z SET 
18 50 012701 000021 T4MPRM: MOV #17.,R1 :GET COUNT 
ane) 54 012702 002310 MOV #PAT16C.R2 ; AND ADDRESS OF poe 16 PARAMETERS 
20 60 012223 18: MOV (R2)+,(R3)+ > COPY THE DATA TO BUFFER 
21 62 005301 DEC R1 
22 64 001375 BNE 1$ 
23 66 000264 SEZ ;RETURN WITH Z SET 
24 70 000207 RE TURN 





6 
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GLOBAL SUBROUTINES SECTION 


ee ee ee 
COOWNAUSWN—OVOONAVEWR 


;T4UPRM - 


SREQUEST 


: INPUTS 


Be Be Se Be Se Be Be Be Be Fe Be Be Be Be Be Be Be Se Se Be Te de 


; R 
; OUTPUTS: 


DM REQUEST 4 
FOR TEST 4 UNIT PARAMETERS AND CLEAR STATISTICS FOR DRIVE 


"RS = CONTROLLER TABLE ADDRESS 


R4 = MESSAGE DATA ADDRESS 
(R4) DRIVE NUMBER 

2. — DRIVE SERIAL NUMBER 
(R4) 

81 (R4) HDA SERIAL NUMBER 


14. (R4) 
3°= COMMAND DATA ADDRESS 


COMMAND DATA FILLED WITH THE FOLLOWING: 
(R3) PARAMETER BITS (1 FOR TRUE) 


AL_WRITF 
DIAGNOSTIC CY _INDERS 
RECTION 


@ 
be 
4 
— 
™ 
i 
— 
2 
-_ 
4 


WRITE ONLY 

RETRIES 

TRACK/GROUP AND CYLINDERS SPECIFIED 
(NOT USED) 

SEQUENTIAL SEEKS 

BEGIN/END SETS SPECIFIED 

TRACK SPECIFIED (0 = GROUPS SPECIFIED) 
HAS MEANING ONLY = BIT 5 IS ZERO 


oO wWoOWDWWOWVOOW 

oa hie be Hd Be bs es be te ee 

4 AHH 

O-NWw LSUANWOO—NW 
teeevtvenvee 


Ow 
fe be 
44 


E 
BIT DATA COMPARE ALWAYS 
2.(R3) DATA PATTERN NUMBER 
IF PARAMETER BIT 5 SET 
4.(R3) COUNT OF BEGIN/END SETS 
6. (R3) <" a acts (2 WORDS) THEN BEGIN BLOCK (2 WORDS) 


OR 
' IF COUNT OF BEGIN/END BLOCKS = 0 
36.(R3) START CYLINDER (2 WORDS) THEN END CYLINDER (2 WORDS) 
END CYLINDER A NEGATIVE VALUE IF TO TEST ENTIRE AREA 
IF PARAMETER BIT 5 CLEAR 
-(R3) ST Suwa 


WORDS) 
-(R3) ENDING CYLINDER (2 WORDS) 
NEGATIVE FOR ALL CYLINDERS 
2.(R3) NUMBER OF TRACKS OR GROUPS | Aaa 
-(R3) 1 TO 7 TRACK OR GROUP 
‘ DE TERMINED ey" PARAME TER BIT *, 


F DATA RETURNED 
F UNIT wt NOT ON THIS CONTROLLER 
gy Tete RR, D.SERR, D.SEEK AND D.ECC CLEARED 


= 
——! 


DRIV 


SEQ 0075 
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SEQ 0076 
GLOBAL SUBROUTINES SECTION 

1 015172 012401 T4UPRM: MOV (R4)+,R1 GET DRIVE NUMBER 

2 015174 010402 MOV RG,R2 SAVE DATA ADDRESS 

3015176 004737 017414 CALL_GTDRVT GET DRIVE TABLE ADDRESS 

4 015202 001145 BNE T4UPRE CHECK IF DRIVE FOUND 

5 015204 012264 000200 MOV (R2)+,D. SERN(R4) COPY DRIVE SERIAL NUMBER TO DRIVE TABLE 
6 015210 012264 000202 MOV (R2)+,D.SERN+2(R4) 

7 015214 012264 000204 MOV (R2)+,D.SERN+4(R4) 

8 015220 016401 MOV D.PRM(R& GET PARAMETER BITS 

9 015224 042701 140200 BIC #D.ZERO.R CLEAR SOME BITS 

10 015230 032737 20 002224 BIT #ISTRTH. IFLAGS :1F FIRST TIME TEST 4 BEING RUN 
11 015236 0014 BEQ 2 : AFTER A START COMMAND 

12 015240 032737 040000 002160 BIT #SM. IW, SFPTBL+SO.BIT GET INITIAL WRITE BIT 

13 015246 001402 BEQ 2$ 

14 015250 052701 040000 BIS #D.1W,R1 {MOVE INTO PARAMETER 81S 
15 015254 010123 2$: MOV R1,(R3)+ PUT INTO BUFFER 

16 015256 01642 MOV D.PAT(R4),(R3)+ PUT PATTERN NUMBER IN BUFFER 
17 015262 032701 000040 BIT #D.BE,R1 CHECK BEGIN/END PARAMETER BIT 
18 015266 00142 BEQ 10$ BRANCH IF NOT SET 
20 ;RETURN BEGIN/END SETS 
22 015270 012701 000004 MOV #4,R1 GET COUNT OF SETS 

23 015274 010402 MOV R4-R2 GET INDEX INTO DRIVE TABLE 
24 015276 062702 000112 ADD #D.BEC,R2 
25 015302 012223 MOV (R2)+, (R3)+ COPY COUNT 

26 015304 016223 000004 1$: MOV 4(R2);(R3)+ 
27 015310 016223 000006 MOV 6(R2) . (R3)+ 
28 015314 012223 MOV (R2)+,(R3)+ 
29 015316 012223 MOV (R2)+, (R3)+ 

30 015320 062702 000004 ADD #4,R2 

31 015324 005301 DEC R1 

32 015326 001366 BNE _1$ 

$5 015350 000456 BR T4UPRX 

35 Q157%2 032764 000400 000004 10S: BIT #D.CYL.D.PRM(R4) LOOK AT D.CYL BIT 

36 07 001441 BEQ 20$ ZBRANCH IF NOT SET 

38 ;RETURN TRACKS/GROUPS AND CYLINDERS 
40 015342 005764 000112 TST D.BEC(R4) CHECK IF ANY TRACKS/GROUPS 
41 015346 001421 BEQ 25$ “BRANCH IF NONE 

42 015350 012701 000004 MOV #4,R1 COUNT OF CYLINDER WORDS 

43 015354 010402 MOV R4-R2 
44 015356 062702 000154 ADD #D.BCYL,R2 
45 015362 012223 11$: MOV (R2)+, (R3)+ ; CYLINDERS 

46 015364 005301 DEC R1 
47 015366 001375 BNE 11$ 
48 015370 012701 000010 MOV #8. ,R1 
49 015374 010402 MOV R4.R2 

50 015376 062702 000112 ADD #D.BEC.R2 

51 015402 012223 12$: MOV (R2)+,(R3)+ ; TRACKS/GROUPS 

52 015404 005301 DEC RI 

53 015406 001375 BNE 12$ 

54 015410 26 BR T4UPRX 

56 ;RETURN CYLINDERS ONLY 
















GLOBAL SUBROUTINES SECTION 
58 015412 052763 000040 177774 25%: ot #D.BE,-4(R3) 
005023 (R3)4 


015422 012701 000004 MOV WRI 
61 015426 010402 MOV R4,R 
62 015430 062702 000154 ADD #D.BCYL,R2 
63 015434 012225 268: MOV a (R3)+ 
64 015436 005501 DEC R 


BNE 56s 
3 015442 000411 BR T4UPRX 
69 RETURN ENTIRE AREA 
70 015444 052763 000040 177774 20$: BIS #D.BE,-4(R3) 
23 (R3)+ 
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73 015456 005023 CLR (R3)+ 

74 015460 005023 CLR (R3)+ 

75 015462 012723 177777 MOV #~-1,(R3)+ 
76 015466 005064 000164 T4UPRX: CLR D.XFRW(R4) 
77 015472 005064 000166 CLR D.XFRR(R4) 
78 015476 5064 000170 CLR D.HERR(R4) 
79 015502 005064 000172 CLR D.SERR(R4) 
80 015506 005064 000174 ne D.SEEK(R4) 
81 015512 005064 000176 R D.ECCC(R4) 
82 0155 T4UPRE : RETURN 






SET D.BE FOR DM PROGRAM 
SEND ZERO BEGIN/END COUNT 


7 CYLINDERS 


7SET D.BE FOR DM PROGRAM 
7BEGIN/END COUNT OF ZERO 
START CYLINDER OF ZERO 
sEND CYLINDER NEGATIVE 


:CLEAR STATISTICS 


SEQ 0077 | 





CZUDCAO UDA AND DRIVE 
GLOBAL S$ 


SUBROUT 


[SOD ONAUSWN "ODO ONAOUSWR 


NON A SS SS Ss SS 


22 015520 


30 015546 


INES SEC 


011401 
0047 


sss sss ssn ste 


N 6 
— MACRO V04.00 23-JUL-81 15:14:57 PAGE 45 SEQ 0078 

;74BB1 = DM REQUEST 5 

;REQUEST FOR FIRST 14 BAD BLOCKS 

: INPUTS: 

3 RS = CONTROLLER gy ADDRESS 

: R4 = MESSAGE DATA ADDRESS 

: (R4) DRIVE NUMBER 

3 R3 ~- COMMAND DATA ADDRESS 

:OUTPUTS: 

j COMMAND DATA FILLED WITH BAD BLOCKS 

3 (R3) COUNT OF BAD BLOCKS 

My 2.(R3) BAD BLOCK 1 (LOW) 

; — (HIGH) 

; 56. (R3) BAD BLOCK 14 (LOW) 

; 58. (R3) (HIGH) 

; Z SET IF DATA RETURNED 

; Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 

T4BB1: MOV (R4),R1 7GET DRIVE NUMBER 
017414 CALL GTDRVT :GET DRIVE TABLE ADDRESS 

BNE ay Ay sCHECK IF DRIVE FOUND 

000010 ADD #D.8B,R z; INCREASE ADDRESS TO DATA TO COPY 
000035 MOV ociecian *2>>,R1 ;GET COUNT OF WORDS 

1$: 34 aad , (R3) + :COPY THE WORDS 


BNE 1$ 
T4BB1E: RETURN 


| 


—— ne 
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ON 


017414 
000102 
000004 


;T4BB2 = DM REQUEST 6 
*REQUEST LAST TWO BAD BLOCKS 


; $< 
; R5 = CONTROLLER TABLE ADDRESS 
: R4 = MESSAGE DATA ADDRESS 


(RQ) DRIVE NUMBER 
- COMMAND DATA ADDRESS 

‘ outputs: 

: COMMAND DATA FILLED a BAD BLOCKS 15 AND 16 

; Z SET IF DATA RETURN 

; Z CLEAR IF UNIT NUMBER NOT ON THIS CONTROLLER 

T4BB2: MOV (R4),R1 GET DRIVE NUMBER 
CALL_GTDRVT :GET DRIVE TABLE ADDRESS 
BNE T4BB2E CHECK IF DRIVE FOUND 
ADD #D.BB15,R4 ; INCREASE ADDRESS TO DATA TO COPY 
MOV #4,R1 [GET COUNT OF WORDS 

1$: MOV (R4)+,(R3)+ ;COPY THE WORDS 


DEC R1 
BNE 1$ 
T4BB2E: RETURN 






OBAL SUBROUTINES SECTION 

3 T4SOFT 
SADD TO 
} INPUTS: 


01 ad T4SOFT: 
004737 017414 


5 
5612 062264 000172 
5616 062264 000176 
000264 


SOWNAUSWWN—OODNAMWE WN 


TS at es es ss 2 os I oo 2 
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vwviv 
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= DM REQUEST 7 
SOFT ERROR AND ECC COUNTS 


R5 = CONTROLLER TABLE ADDRESS 
R4 = MESSAGE DATA ADDRESS 
(R4) DRIVE NUMBER 
2.(R4) VALUE TO ADD TO SOFT ERROR COUNT 
4.(R4) VALUE TO ADD TO ECC COUNT 
R3 = COMMAND DATA ADDRESS 


MOV (R4)+,R1 GET DRIVE NUMBER 

MOV R4,R2 SAVE DATA ADDRESS 

CALL. GTDRVT :GET DRIVE TABLE ADDRESS 
BNE 1$ CHECK IF DRIVE FOUND 
ADD (R2)+,D.SERR(R4) ;ADD TO SOFT ERROR COUNT 
a5 (R2)+,D.ECCC(R4) zADD TO ECC COUNT 
RETURN 


SEQ 0080 
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GLOBAL SUBROUTINES SECTION 


1 015626 T4SEEK: 

§ ; DM REQUEST 8. 

: ;RECORD 1000 SEEKS COMPLETED ON DRIVE 

6 ; INPUTS: 

7 : R5 = CONTROLLER TABLE ADDRESS 

8 3 R4 = MESSAGE DATA ADDRESS 

9 3 (R4) DRIVE NUMBER 

+ ; R3 = COMMAND DATA ADDRESS 

12 015626 011401 MOV (R4) ,R1 ; GET DRIVE NUMBER 

13 015630 004737 017414 CALL GTDRVT ; GET DRIVE TABLE ADDRESS 
14 015634 001003 BNE SEKERE ; CHECK IF DRIVE FOUND 
15 015636 005264 000174 INC D.SEEK(R4) ; COUNT THE BITS TRANSFERRED 
16 0 000264 Sisina SEZ ; NORMAL RETURN 

170 SEKERE: RETURN 





~ 








—E 7 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 49 SEQ 0082 
GLOBAL SUBROUTINES SECTION 
} ;TGMXFR = DM REQUEST 9. 
3 [RECORD 1M BITS TRANSFERRED ON UNIT. COMPARE TO TRANSFER LIMIT AND 
4 [REPORT LIMIT REACHED. 
6 INPUTS: 
7 : RS = CONTROLLER TABLE ADDRESS 
8 : RG - MESSAGE DATA ADDRESS 
9 ; (R4) DRIVE NUMBER 
10 ; 2.(R4) VALUE TO ADD TO READ COUNT 
11 : 4.(R4) VALUE TO ADD TO WRITE COUNT 
12 : 3°= COMMAND DATA ADDRESS 
13 SOUTPU 
14 : (R3) BIT 15 SET IF TRANSFER LIMIT REACHED 
15 : MESSAGE PRINTED IF TRANSFER LIMIT REACHED 
16 ; Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
18 015646 010402 T4MXFR: MOV R4,R2 ;GET MESSAGE DATA ADDRESS 
19 015650 011401 MOV (R4),R1 [GET DRIVE NUMBER 
20 015652 004737 017414 CALL GTDRVT [GET DRIVE TABLE ADDRESS 
21 015656 001053 BNE MXF ERE ZCHECK IF DRIVE FOUND 
22 015660 066264 000002 000166 ADD 2(R2),D.XFRR(R4) ZADD MEGABITS READ 
23 015666 066264 000004 000164 ADD 4(R2) .D.XFRW(R4) TADD MEGABITS WRITTEN 
24 015674 005737 002156 TST SFPTBL+SO.XL TSEE IF LIMIT SPECIFIED 
25 015700 001441 BEQ MXFERX BRANCH IF NOT 
26 015702 026437 000166 002156 CMP D.XFRR(R4) ,SFPTBL+SO.XL :CHECK IF LIMIT REACHED 
27 015710 103435 BLO MXFERX BRANCH IF LIMIT NOT REACHED 
28 015712 RFLAGS RO =CHECK FLAGS 
015712 104421 TRAP __C$RFLA 
29 015714 032700 000040 BIT #IDU, RO ;SEE IF DROPPING UNITS IS INHIBITED 
30 015720 001031 BNE MXFERX 
31 015722 052713 100000 BIS #B1T15,(R3) :SET DROP UNIT BIT 
32 015726 042765 000010 000014 BIC #CT.MSG,C.FLG(RS) CLEAR MESSAGE RECEIVED FLAG 
33 015734 PRINTF #MESSG.D. UNITCRS), (RS) , (R&) ;PRINT TESTING DONE 
015734 011446 MOV (R4) ,-(SP) 
015736 011546 MOV (RS) ,=(SP) 
015740 016446 000002 MOV D.UNIT(R4) .-(SP) 
015744 012746 010131 MOV #MESSG,~-(SP) 
015750 012746 000004 MOV #4,-(SP) 
015754 010600 MOV SP RO 
015756 104417 TRAP _— CSPNTF 
015760 062706 000012 ADD #12,SP 
34 015764 PRINTF #MXFERP 
015764 012746 006425 MOV #MXFERP,-(SP) 
015770 012746 000001 , MOV #1,-(SP) 
015774 010600 ; MOV SP.RO 
015776 104417 | TRAP —s-CSPNTF 
016000 062706 000004 ADD #4 SP 
000264 MXFERX: SEZ ;NORMAL RETURN 


MXFERE: RETURN 


ane, 


ee — 


a: 
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GLOBAL SUBROUTINES SECTION 


} ZUTOTST = DM REQUEST 10 

? ; TELL DM PROGRAM WHICH DRIVES ARE SELECTED FOR TESTING 

5 ; INPUTS: 

6 : RS = CONTROLLER TABLE ADDRESS 

? : R4 = MESSAGE DATA ADDRESS 

» : (NO DATA) 

9 3 R3 = COMMAND DATA ADDRESS 

10 OUTPUTS: 
11 3 COMMAND PACKET CONTAINING UP TO 8 DRIVE NUMBERS. 

12 : LIST IS ENDED BY A WORD WITH BIT 15 SET 

1? ; ; FOLLOWING LIST IS THE INFORMATION FROM T2DLL REQUEST IF APPLICABLE. 
15 
16 016010 010504 UTOTST: MOV RS,R4 GET ADDRESS OF CONTROLLER TABLE 
17 016012 062704 000020 ADD #C.DRO.R4 :BUMP TO DRIVE TABLE POINTERS 

18 016016 012702 000010 MOV #8.,R2 :GET COUNT OF PORTS 

19 016022 012400 UTOT1: MOV (R4)+,RO : SEE IF DRIVE TABLE POINTER EXISTS 
20 016024 001406 BEQ UTOT2 H IF NOT 
21 016026 005760 000002 TST D.UNIT(RO) Toon IF UNIT AVAILABLE FOR TESTING 
22 016032 100773 BMI UTOT1 
23 016034 ; ASSUME DT.AVL EQ BIT15 
24 016034 011023 MOV (RO), (R3)+ : LOAD RIVE NUMBER FROM TABLE 

25 016036 005302 DEC R2 THE PORTS 

26 016040 001370 BNE UTOT1 SEEDEAT FOR EACH PORT 

27 016042 012723 100000 UTOT2: MOV #B1T15,(R3)+ ; TERMINATE LIST 
28 016046 013723 002412 MOV DLL,(R3)+ 7GET DLL CONTROL WORD 

29 016052 001407 BEQ UTOT4 -: IF NON-ZERO 

30 016054 012701 002414 MOV #DLLDR,R1 ; TRANSFER ALL DLL WORDS INTO BUFFER 
31 016060 012702 000020 MOV #<DLLNAM+4-DLLDR>,R2 

32 016064 012123 UTOT3: MOV (R1)+,(R3)+ 

33 016066 005302 DEC R2 

34 016070 001375 BNE UTOT3 

3 000264 


sRETURN WITH Z SET 











al lh al wel el cil wild eal el cil 
OOONANEWN | DODNAME WN 


40 016170 
‘3 016174 


4 
43 016176 
44 016202 


000001 


000040 


100000 
000003 


000400 
000010 
000004 
001000 
020746 


002404 


009003 


000003 
002160 


000014 
002226 


002160 


002406 
002410 
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GLOBAL SUBROUTINES SECTION 


SEQ 0084 


(R3) - BIT 15 SET IF FATAL ERROR TO INDICATE DRIVE SHOULD NO LONGER BE TESTED 


:CHECK IF FATAL ERROR 
;BRANCH IF NOT 
;LOOK AT FLAGS 


TRAP 
:SEE IF ALLOWED TO DROP UNITS 
:BRANCH IF NOT 
SET DROP DRIVE BIT 
2-3 it ERROR 


7BR NOT 

7SEE IF SOFT ERRORS SUPPRESSED 
DON'T PRINT IF SO 

4 a RECEIVED FLAG 


CSRFLA 


: SEE IF LOG BEING USED 
7: IF NOT, PRINT THE ERROR MESSAGE 


7SEE IF LOG BUFFER ESTABLISHED 


sERRMES = DM REQUEST 11 
;PRINT AN ERROR MESSAGE 
; INPUTS: 
; RS = CONTROLLER TABLE ADDRESS 
: R4 = MESSAGE DATA ADDRESS 
: (R4) ERROR PC IN DM PROGRAM 
3 2.(R4) < 9:8 > ERROR TYPE 
: < 7:0 > ERROR NUMBER 
; 4.(R4) DRIVE NUMBER (-1 IF NOT GIVEN) 
: 6.(R4) MESSAGE POINTER 
4 8.(R4) OPTIONAL PARAMETERS FOR ERROR PRINT ROUTINE 
; 10. (R4) * 
3 58.(R4) a 
3 R3 - COMMAND DATA ADDRESS 
sOUTPUTS: 
; COMMAND PACKET CONTAINING THE FOLLOWING: 
: Z SET TO INDICATE DATA RETURNED 
3 Z CLEAR IF DRIVE NUMBER NOT ON THIJS CONTROLLER 
ERRMES: CMPB #1,3(R4) 
BMI 4$ 
RFLAGS RO 
BIT #IDU,RO 
BNE 
BIS #B1T15,(R3) 
4$: CMPB #3,3(R4) 
BNE 3$ 
* BIT #SM.SSF ,SO.BIT+SFPTBL 
BNE ERRMSX 
3$: BIC #CT.MSG,C.FLG(RS) 
CMP #4, TNUM 
BNE 1$ 
BIT #SM.LOG,SFPTBL+SO.BIT 
BNE ERRMSL 
1$: CALL PNTERR 
BR ERRMSX 
ERRMSL: TST LBUFS 
BNE 1$ 


MO 

ADD #HC.BSZ,LBUFN 
CMP_LBUFN,LBUFE 

BHIS 3$ 

MOV R5,(R1)+ 

MOV #<HC.BS72-2>/2,R0 


; _LBUFS CONTAINS ADDRESS IF ESTABLISHED 
7GET START ADDRESS OF BUFFER 
: INITIALIZE BUFFER STORAGE 

[SAVE ADDRESS WHERE TO ADD 

; COMPUTE END OF STORAGE AREA 


:GET ADDRESS OF DATA STORAGE AREA 
ZAD D BYTES OF STORAGE NEEDED 

SEE_IF ENOUGH ROOM 
;__BRANCH IF NOT 
>STORE CONTROLLER TABLE ADDRESS 
[GET COUNT OF REST OF DATA IN WORDS 


—- -— — —_ 7 


pone a ee 


016272 012746 011514 
000001 


016 962706 000004 
61 016312 000412 
62 016314 010137 002406 
63 016320 
0163 012746 011562 
000001 


016334 062706 000004 
65 016342 000207’ 


23: 


3$: 


ERRMSX : 
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GLOBAL SUBROUTINES SECTION 


MOV (R4)+,(R1)+ 
DEC RO 


BNE 2$ 
PRINTF #LOGDAT 


BR ERRMSX 
MOV R1,LBUFN 
PRINTF #LOGFUL 


SEZ 
RETURN 


Se © we a eee | 


STORE DATA 


7 TELL OPERATOR DATA IN BUFFER 
MOV 


RESTORE OLD VALUE OF LBUFN 
;TELL OPERATOR LOG IS FULL 
Vv 


SEQ 0085 


#LOGDAT ,=(SP) 


#1,-(SP) 


®: 
CZUDCAO UDA AND ie — MACRO V04.00 23=JUL-81 15:14:57 PAGE 52 SEQ 0086 


: ; ERRMC - DM REQUEST 12. 
3 “REPORT AN ERROR MESSAGE IDENTICAL TO DM REQUEST E ERRME S 
4 ; THEN ADD ONE TO THE ERROR COUNT FOR THE DRIVE AND SEE IF 
? TERROR LIMIT REACHED. 
7 z INPUTS: 
& : R5 = CONTROLLER TABLE ADDRESS 
9 : R4 = MESSAGE DATA ADDRESS 
10 : (R4) ERROR PC IN DM PROGRAM 
11 ; 2.(R4) < 9:8 > ERROR TYPE 
12 : < 7:0 > ERROR 
13 : 4.(R4) DRIVE NUMBER (-1 IF NOT GIVEN) 
14 : 6.(R4) MESSAGE POINTER 
15 : 8.(R4) OPTIONAL PARAMETERS FOR ERROR PRINT ROUTINE 
16 : 10. (nt) - 
17 : ee 
18 : we 
19 : 58. (RG) ne 
20 “" : R3 = COMMAND DATA ADDRESS 
21 OUTPUTS: 
22 3 PACKET CONTAINING THE FOLLOWING: 
23 : (R3) BIT 15 SET If ERROR COUNT REACHED 
24 : TO INDICATE DRIVE SHOULD NO LONGER BE TESTED. 
25 ; Z CLEAR IF DRIVE NUMBER NOT ON THIS CONTROLLER 
$ $ Z SET TO INDICATE DATA RETURNED 
28 016344 ERRMC: PUSH R4& 
016344 010446 MOV R4,-(SP) 
29 016346 004737 016076 CALL ERRME S ; CALL REQUEST ERRMES 
30 016352 001042 BNE 4$ 
31 016354 POP R4 
016354 012604 MOV (SP)+,R4 
32 016356 016401 000004 MOV 4(R4) ,R1 ; GET DRIVE azaen 
33 016362 116402 000003 MOVB 3(R4),R2 GET ERROR TYPE 
34 016366 004737 017414 CALL GTDRVT ; GET DRIVE TABLE 
35 016372 001033 BNE 5$ : EXIT IF NO TABLE FOR UNIT 
36 016374 022702 000002 CMP #2,R2 ;CHECK IF HARD ERROR 
37 016400 001025 BNE 3$ BRANCH IF NOT 
38 016402 005264 000170 INC D.HERR(R4) : COUNT THE ERROR 
39 016406 026437 000170 002154 CMP D.HERR(R4),SFPTBL+SO.EL ; CHECK IF AT LIMIT 
40 016414 103417 BLO 3$ ; IF LIMIT REACHED, BRANCH 
41 016416 RFLAGS RO :LOOK AT THE FLAGS 
016416 104421 TRAP CSRFLA 
42 016420 032700 000040 BIT #1DU,RO SEE IF DROPPING UNITS INHIBITED 
43 0 BNE 3$ BRANCH IF SO 
44 0 PRINTF #ERRLIM,R1 : PRINT LIMIT REACHED at ecw 
006502 MOV #ERRL IM, (SP) 
000002 MOV + -(SP) 
MOV PRO 
TRAP eSENTF 
#6,SP 
BIS #B1T15,(R3) :SET STOP TESTING BIT 
SEZ : T Z FOR RET! 


RE TURN ; RETURN TO CALLING PROGRAM 





GLOBAL 
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3 016570 
34 016572 

016572 
35 016574 


D 
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042765 
012401 


011546 
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000010 000014 


017414 


000002 
010131 
000004 


000012 


002212 
163436 


016602 





:MESSAG - DM REQUEST 13. 


[PRINT A MESSAGE WITH HEADER AS FOLLOWS: 
3; UNIT XX UDA AT XXXXXX DRIVE XXX 


INPUTS: 
RS = CONTROLLER TABLE ADDRESS 
R4 = MESSAGE DATA ADDRESS 
(R4) DRIVE NUMBE 
2.(R4) MESSAGE POINTER 
4.(R4) OPTIONAL MESSAGE PARAMETERS 


58.(R4) COMMAND DATA ADDRESS 


BIC #CT.MSG,C.FLG(RS) : CLEAR MESSAGE RECEIVED FLAG 
MOV (R4)+,R1 :GET DRIVE NUMBER 
PUSH R4 SAVE DATA POINTER 

MOV R4,-(SP) 


CALL GTDRVT :GET DRIVE TABLE ADDRESS 
BNE 1$ ;CHECK IF DRIVE FOUND 
PRINTX #MESSG,D.UNIT(R4), (R5), (R4) PRINT HEADER 


MESSAG: 


SEQ 0088 


MOV (R4) ,~(SP) 

MOV (R5) ,-(SP) 

MOV D.UNIT(R4) ,~(SP) 
MOV AMESSG,-(SP) 
MOV #4 ,~-(SP) 

MOV SP ,RO 

TRAP CSPNTX 

ADD #12,SP 


POP R4 

MOV _(SP)+,R4 
MOV (R4)+,R2 
ASL R2 


:GET MESSAGE POINTER 
SL OUBLE 
ADD DMPROG,R2 


2D TO MAKE BYTE OFFSET 
[ADD TO START OF MESSAGE STRINGS 
PROGRAM 


ADD @DMPROG,R2 SADD SIZE OF MAIN 
TSTB_(R2) ; CHECK — BYTE 
E 2$ IF ZERO 
INC R2 ; INCREMENT TO NEXT BYTE 
2$: — OSTRNG [OUTPUT ACCORDING TO STRING 
RETURN 
1$: POP R4 


MOV (SP)+,R4 
RE TURN 
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ON 


CZUDCAO UDA AND DRIVE 
GLOBAL SUBROUTINES SEC 


} :DONE = DM REQUEST 14 
; [MARK DM PROGRAM AS NO LONGER RUNNING 

5 : INPUTS: 

6 : R5 = CONTROLLER TABLE ADDRESS 

? : R4 = MESSAGE DATA ADDRESS 

® : (NO DATA) 

9 : R3 = COMMAND DATA ADDRESS 

10 SOUTPUTS: 

1 ; 7 CLEAR TO DROP UNIT FROM TESTING 

13 016576 000244 DONE:  (CLZ :DROP UNIT FROM TESTING 
14 016600 000207 RETURN 


SEQ 0089 


M 7 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 55 SEQ 0090 
GLOBAL SUBROUTINES SECTION 
5 7 OSTRNG ' 
? ;OUTPUT A MESSAGE ACCORDING TO A FORMAT STRING 
Ps a ey oe ee 
5 ; INPUTS: 
6 ; R2 = ADDRESS OF START OF FORMAT STRING ‘ 
7 ; R4 = ADDRESS OF PARAMETERS 
8 ; OUTPUTS: 
10 ; R2 AND R4 UPDATED TO END OF STRING AND PARAMETERS 
11 016602 112201 OSTRNG: MOVB (R2)+,R1 :GET CONTROL CHARACTER 
12 016604 001425 BEQ OSTRE SEXIT IF NULL CHARACTER 
13 016606 012700 017216 MOV #ERRC,RO :GET POINTER TO CHARACTER TABLE 
14 016612 120110 NCONS: CMPB R1,(RO) ;COMPARE CHARACTER WITH TABLE ENTRY 
15 016614 001413 BEQ NCONF [BRANCH IF MATCH FOUND 
16 016616 105720 TSTB (RO)+ ; INCREMENT POINTER 
17 016620 001374 BNE NCONS SCONTINUE SEARCH IF NOT END OF TABLE 
18 016622 PRINTF #ERRME1 ;REPORT BAD CONTROL CHARACTER 
016622 012746 006332 MOV MERRME1, "Seat 
016626 012746 000001 MOV #1,-(SP) 
016632 010600 MOV SP;RO 
16634 104417 TRAP CSPNTF 
016636 062706 000004 ADD #4 ,SP 
19 016642 000406 BR OSTRE 
20 016644 162700 017216 NCONF: SUB #ERRC,RO ;GET INCREMENT INTO TABLE 
21 016650 006300 ASL RO ;DOUBLE TO WORD COUNT 


22 016652 004770 017230 CALL @ERRD(RO) ;DISPATCH TO PRINT ROUTINE 
23 016656 000751 BR OSTRNG GET NEXT 
24 016660 000207 OSTRE: RETURN 
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SUBROUTINES SECTION 


1 
2 
3 016662 112237 002172 CON.QU: MOVB (R2)+,ERRCHR 
4 016666 123727 002172 000042 CMPB_ERRCHR,#' 
5 016674 001413 BEQ CON. QX 
6 016676 PRINTX MERRONE ,MERRCHR 
016676 012746 002172 
016702 012746 005316 
0167 012746 000002 
016712 010600 
016714 104415 
016716 062706 000006 
7 016722 000757 BR_CON.QU 
s 016724 000207 CON.QX: RETURN 
" 
12 016726 004737 017504 CON.A: CALL GETCNT 
13 016732 112437 002172 CON.A1: MOVB (R4)+,ERRCHR 
14 016736 PRINTX MERRONE ,#ERRCHR 


016736 012746 002172 
016742 012746 005316 
000002 


016756 062706 000006. 


SEQ 0091 


sCONTROL CHARACTER WAS A QUOTE. PRINT ALL CHARACTERS TO THE NEXT QUOTE. 
GET CHARACTER 


CHECK IF ENDING QUOTE 
:IF SO, GO GET NEXT CONTROL CHARACTER 
[PRINT THE CHARACTER 
MOV MERRCHR ,=(SP) 


MOV SP.RO 
TRAP —- C$PNTX 
DD #6,SP 


CONTINUE PRINTING 


CONTROL CHARACTER WAS AN A. PRINT ASCII CHARACTERS FROM PARAMETERS. 


GET COUNT OF CHARACTERS 
[GET CHARACTER 
SPRINT THE CHARACTER 
MOV MERRCHR ,=(SP) 


MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #6,SP 


15 016762 005301 DEC R1 ;COUNT THE CHARACTERS 
16 016764 001362 BNE CON.A1 [PRINT UNTIL COUNT REACHES ZERO 
17 016766 032704 000001 BIT #1,R4 CHECK IF R4 NOW ODD 
18 016772 001401 BEQ CON.A2 
19 016774 0052 INC R4 IF SO, INCREMENT TO NEXT EVEN ADDRESS 
30 016776 000207 CON.A2: RETURN [NOW GET NEXT CONTROL CHARACTER 
$ CONTROL CHARACTER WAS A D. PRINT DECIMAL NUMBER. 
24 017000 012701 000012 CON.D: MOV #10.,R1 LOAD RADIX 
25 017004 004737 017562 CALL PNTNUM [PRINT NUMBER 
$ 017010 000207 RETURN [NOW GET NEXT CONTROL CHARACTER 
4 ;CONTROL CHARACTER WAS AN H. PRINT HEX NUMBER. 
30 017012 012701 000020 CON.H: MOV #16.,R1 LOAD RADIX 
31 017016 004737 017562 CALL PNTNUM *PRINT NUMBER 
4 017022 000207 RETURN NOW GET NEXT CONTROL CHARACTER 
+ ;CONTROL CHARACTER WAS AN O. PRINT OCTAL NUMBEP. 
017024 012701 000010 CON.O: MOV #8.,R1 ;LOAD uoix 
37 017030 004737 017562 CALL PNTNUM PRINT NUMBER 
4 017034 000207 RETURN NOW GET NEXT CONTROL CHARACTER 
a ;CONTROL CHARACTER WAS AN N. PRINT NEW LINE SEQUENCE. 
42 017036 004737 017504 CON.N: CALL GETCNT GET COUNT 
43 017042 CON.N1: PRINTX #ERRNL PRINT NEW LINE SEQUENCE 
017042 012746 005321 MOV #ERRNL ,-(SP) 
017046 012746 000001 . MOV #1,-(SP) 


\ 
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GLOBAL SUBROUTINES SECTION 


017052 010600 MOV SP,RO 
017054 10441 TRAP CSPNTX 
17056 062706 000004 ADD #4, SP 

44 017062 00530 DEC R1 ;COUNT THE SEQUENCES 

45 017064 0013 BNE CON.N1 

8 017066 000207 RETURN ;NOW GET NEXT CONTROL CHARACTER 

Pr ; CONTROL CHARACTER WAS AN R. CALL A PRE-PROGRAMMED ROUTINE. 

50 017070 737 017504 CON.R: CALL GETCNT ;GET ROUTINE NUMBER 

51 017074 020127 002 CMP R1,AERRRSZ ;CHECK IF DEFINED ROUTINE NUMBER 

52 017100 101 I CON.R1 

53 017102 060101 ADD R1,R1 ;DOUBLE COUNT TO GET WORD INDEX 
017104 004771 17200 CALL aéRRRTB-2(K1) :CALL ROUTINE 

55 017110 000207 RETURN zNOW GET NEXT CONTROL CHARACTER 

56 017112 CON.R1: PRINTF #ERRME1 ;REPORT BAD MESSAGE STRING 
017112 012746 006332 MOV MERRME 1,-(SP) 
017116 012746 000001 MOV #1,-(SP) 
017122 010600 MOV SP,RO 
017124 104417 TRAP CSPNTF 
017126 0627 000004 ADD #4 ,SP 

57 017132 POP R1 sFIX THE STACK 
017132 012601 MOV (SP)+,R1 

ra 017134 000207 RETURN 

rt CONTROL CHARACTER WAS AN S. PRINT SPACES. 

62 017136 004737 017504 CON.S: CALL GETCNT ;GET COUNT 
017142 012737 000040 002172 MOV #° ,ERRCHR ;STORE SPACE CHARACTER 
017150 CON.S1: PRINTX HERRONE , AERRCHR sPRINT THE SPACE 
017150 012746 002172 MOV #ERRCHR,-(SP) 
017154 012746 005316 MOV #ERRONE ,- (SP) 
017160 012746 000002 MOV #2,-(SP) 
017164 01 MOV SP,RO 
017166 104415 TRAP C 
017170 062706 000006 ADD #6,SP 

65 017174 005301 DEC R1 ; COUNT THE SPACES 

66 017176 001 BNE CON.S1 

4 017200 000207 RETURN sNOW GET NEXT CONTROL CHARACTER 

4 ;ERROR ROUTINE DISPATCH TABLE 

71 017202 017250 ERRRTB: .WORD CALR1 ;CALL ALTERNATE PRINT STRING 

72 017204 017276 -WORD CALR2 ;PRINT AN SDI DIAGNOSE RESPONSE 

i? 000002 ERRRSZ=<.-ERRRTB>/2 

75 017206 0025 TNAMES: .WORD T1NAME 

76 017210 002556 -WORD T2NAME 

77 017212 002574 .WORD T3NAME 

78 017214 002612 ~WORD T4NAME 

80 ;BUILD TWO TABLES 

81 ; FIRST CONTAINING CONTROL CHARACTERS 

ry j SECOND CONTAINING ROUTINE ADDRESSES 

84 -MACRO BUILD 


85 ENTRY **,CON.QU 
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GLOBAL SUBROUTINES SECTION | 


ENTRY A,CON.A 
87 ENTRY D,CON.D 
ENTRY H,CON.H 
89 ENTRY 0,CON.O 
ENTRY N,CON.N 
91 ENTRY R,CON.R 
92 ENTRY S,CON.S 


97 «MACRO ae 


98 «LI 

99 -BYTE **ARG] 
100 «NLIST 

101 - ENDM 

102 

10 


3 017216 ERRC: BUILD 
0 B 


oO 

= 

N“N 

mM 

Nm 

par 
a 2 = - = 


INS we Rohe 
WNHANOS—P 
w 
~< 
4 
m 
J 


ee. 
wo 
~< 
oH 
m 
oO 


017226 ;FOLLOW WITH A NULL BYTE 


| 

| 

| 

| 

| 

} 

HERE IS SECOND TABLE | 
«MACRO ENTRY ARG1,ARG2 

-LIS 

' 

| 

| 

| 


AIST 2c. M46 6 ees 
. ENDM : 


7230 ERRD: BUILD 


spat ab stonanteaeeoeperan 
— od od od oO 
oO 


017246 017136 


88 : | 
90 i | 

93 -ENDM | 

94 

% HERE IS FIRST TABLE 
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0 

017250 010246 
017252 012402 
017254 006302 
017256 063702 
017262 067702 
4 7266 004737 
0 
0 


17272 012602 
17274 000207 
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ION 


-PROGRAMMED ROUTINE 1 


PRE 
SCALL ALTERNATE PRINT STRING 


CALR1: 


PUSH R2 
MOV R2,-(SP) 
a a, »R2 
ADD DMPROG,R2 
ADD @DMPROG, R 
CALL OSTRNG 
POP R 
MOV (SP)+,R2 
RETURN 


SAVE CURRENT STRING POINTER 
GET NEW STRING POINTER 
;DOUBLE FOR WORD COUNT 


; OUTPUT USING T THIS STRING 
:GET OLD POINTER 5, STRING 


NOW CONTINUE THE OLD STRING 


SEQ 0094 


















= 
N 


ab dad od od od 
N 
Ww 
_ 
* 


0 
21 017410 
0 0 
22 017412 


CZUDCAO UDA AND DRIVE 
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C 


010246 
012402 


010246 
000302 


012746 
0600 


012746 
012746 
010600 
104415 
062706 


0712602 
000207 


DIAGNO 
TION 


177400 
000020 
000040 
017570 
05321 
000001 


000004 


177400 
016732 
005321 
000001 


000004 
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SEQ 0095 


PRE-PROGRAMMED ROUTINE 2 
“PRINT AN SDI DIAGNOSE RESPONSE 


CALR2: 


1$: 


23: 


3$: 





PUSH R2 SAVE CURRENT STRING POINTER 
MOV R2,-(SP) 

MOV (R4)+,R2 0 — GET COUNTS 

PUSH R ; SAVE COUNTS 
MOV R2,-(SP) 

SWAB R2 ;GET BINARY COUNT 

BIC #177400,R2 

BEQ 2$ BYPASS BINARY IF COUNT IS ZERO 

MOV #16.,R0 RADIX _IS HEX 

MOV #32.,R1 332 BIT NUMBERS 

CALL_PNTNUS ;PRINT THE NUMBER 


PRINTX #ERRNL 7GO TO NEW LINE 
MOV MERRNL , = (SP) 


MOV a St 


DEC R2 

BNE 1$ 

POP R1 :GET ASCII COUNT 
(SP)+,R1 

BIC #177400, R1 

BEQ 3$ ;BYPASS IS COUNT IS ZERO 


CALL _CON.A1 sPRINT THE ASCII 

PRINTX MERRNL :GO TO NEW LINE 
MOV MERRNL ,~ (SP) 
MOV #1,~-(SP) 


MOV SP RO 

TRAP CSPNTX 

ADD #4 ,SP 
POP R2 RESTORE STRING POINTER 


MOV (SP)+,R2 
RE TURN 





OONAWUS WR—OVONAOVESWR 


et ts Sw -4 


31 017500 
32 017502 


010246 
010504 


012602 
000244 
000207 
011404 
016437 


012602 





000020 
000010 


000000 


000002 002074 
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GLOBAL SUBROUTINES SECTION 


sGTDRVT 
:GET DRIVE TABLE POINTER 
; INPUTS: 
2 RS = CONTROLLER TABLE ADDRESS 
: R1 = DRIVE NUMBER 
;OUTPUTS: 
: R4 = DRIVE TABLE ADDRESS 
; LSLUN = LOADED WITH UNIT NUMBER OF DRIVE 
2 7 CLEAR IF DRIVE TABLE NOT FOUND AFTER ERROR PRINTED 
GTDRVT: PUSH R2 
MOV R2,-(SP) 
MOV R5,R4 ;GET CONTROLLER TABLE ADRESS 
ADD #C.DRO,R4 ADD OFFSET TO DRIVE TABLE ADDRESS 
MOV - ;GET COUNT OF DRIVES 
1$ ei a + CHECK _IF AN ADDRESS HERE 
CMP @a(R4),R1 : COMPARE ay NUMBERS 
BEQ 10$ ANCH IF A MATCH 
2$: TST (R4)+ “BUMP ADDRESS 
DEC R2 
BNE 1$ ;LOOK AT ALL OF THEM 
3$: ERRDF 80,GTDRV1 ;UNIT NUMBER NOT FOUND 
TRAP CSERDF 
-WORD 80 
-WORD GTDRV1 
.- WORD 0 
POP R2 
MOV (SP)+,R2 
CL ;CLEAR Z AS ERROR FLAG 
RETURN 
MOV (R4),R 7GET ADDRESS OF TABLE 


RS 
MOV D. UNIT(R4), LSLUN 
POP R2 

MOV (SP)+,R2 
SEZ 
RETURN 


GET UNIT NUMBER 


;SET Z FLAG 


SEQ 0096 
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GLOBAL SUBROUTINES SECTION 


} GETCNT 
3 :GET COUNT IN NEXT CHARACTERS OF STRING POINTED TO BY R2. 
4 sNUMBER WILL BE IN DECIMAL. IF NO NUMBER, RETURN A 
Z sDEFAULT OF 1. 
? INPUTS: 
8 : RZ - POINTER TO ASCII STRING 
9 s OUTPUTS: 
10 ; R1 = NUMBER READ OR A ONE 
\ é R2 = POINTING TO CHARACTER AFTER NUMBER 
13 017504 GETCNT: PUSH RU 
017504 010046 MOV RO,-(SP) 
14 017506 005001 CLR R1 ZSTART WITH ZERO COUNT 
15 017510 121227 000060 GETCNX: CMPB (R2),4'°0O : CHECK IF CHARACTER A DIGIT 
16 017514 103415 BLO GETCDN ;BRANCH IF LOWER THAN ZERO 
17 017516 121227 000071 CMPB (R2),4'°9 
18 017522 101012 BHI GETCDN ;BRANCH IF HIGHER THAN NINE 
19 017524 006301 ASL R1 sMULTIPLY NUMBER BY 10 
20 017526 010100 MOV R1,RO ; SAVE 2N 
21 017530 006301 ASL R1 : COMPUTE 4N 
22 017532 006301 ASL R1 : COMPUTE 8N 
23 017534 060001 ADD RO,R1 ; 8N + 2N = 10N 
24 017536 112200 MOVB (R2)+,RO :GET DIGIT FROM STING 
25 017540 162700 000060 SUB #°0,R0 :GET RID OF ASCII 
26 017544 060001 ADD RO,R1 ;ADD TO NUMBER 
27 017546 000760 BR GETCNX 3;GO TO NEXT CHARACTER 
28 017550 005701 GETCDN: TST R1 7 CHECK IF NUMBER IS ZERO 
29 017552 001001 BNE GETCXX zIF ZERO, CHANGE 
30 017554 005201 INC R1 : TO DEFAULT OF ONE 
31 017556 GETCXX: POP RO 
017556 012600 MOV (SP)+,RO 


32 017560 0060207 RETURN 





rr ————— _ 


| 
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| GLOBAL SUBROUTINES SECTION 
} : PNTNUM | 
| ° 
3 :PRINT A NUMBER | 
| 4 : 
© 3 INPUTS 
6 : R1 = RADIX OF NUMBER | 
7? R2 = ASCII STRING TO COUNT OF BITS IN NUMBER 
- : R4 = POINTER TO NUMBER (LOW WORD) 
9 OUTPUTS: 
10 3 NUMBER IS PRINTED. LEADING ZEROS ARE PRINTED EXCEPT FOR 
11 ; DECIMAL NUMBERS. 
\ 3 RO = CONTENTS DESTROYED 
14 017562 010100 PNTNUM: MOV R1,RO SAVE RADIX 
15 0175 004737 017504 CALL GETCNT *GET COUNT OF BITS 
16 017570 PNTNUS: PUSH <R2,R3,R5> 
017570 010246 MOV R2,-(SP) 
017572 010346 MOV R3,-(SP) 
017574 010546 MOV _R5S,-(SP) 
17 017576 012403 MOV (R4)+,R3 GET ONE PARAMETER WORD 
18 017600 005005 CLR RS ;CLEAR STORAGE FOR OTHER 
19 017602 020127 000020 CMP R1,416. [MORE THAN 16 BITS IN NUMBER? 
20 017606 003401 BLE 1$ 
21 017610 012405 MOV (R4)+,R5 YES, GET SECOND PARAMETER WORD 
22 017612 1$: PUSH R4 
017612 010446 MOV R4,-(SP) 
23 017614 010504 MOV R5,R4 PUT HIGH WORD IN R4 
24 017616 012702 000020 MOV #16. ,R2 COMPUTE BITS NOT WANTED 
25 017622 160102 SUB R1,R2 ;BY SUBTRACTING BITS TO USE 
26 017624 002002 BGE 2$ FROM 16. 
27 017626 062702 000020 ADD #16.,R2 IF NEGATIVE, ADD 16 FOR FIRST WORD 
28 017632 001414 23: BEQ 6$ :1F ZERO, NO BITS NEED BE CLEARED 
29 017634 012705 100000 MOV #B1T15,R5 START MASK WITH SIGN BIT SET a 
017640 005302 3$: DEC R2 :COUNT BITS IN MASK 
31 017642 001402 BEQ 4$ 
32 017644 006205 ASR RS SHIFT MORE BITS TO RIGHT 
33 017646 000774 BR 3$ 
34 017650 020127 000020 4$: CMP R1,416. ;MORE THAN 16 BITS IN NUMBER? 
35 017654 003402 BLE 5$ 
36 017656 040504 BIC R5.R4 YES, CLEAR IN HIGH WORD 
37 017660 000401 BR 6$ 
38 017662 040503 5$: BIC R5,R3 NO, CLEAR IN LOW WORD 
39 017664 004737 020070 6$: CALL DIVIDE “DIVIDE BY RADIX IN RO 
40 017670 PUSH R5 [PUSH REMAINDER ON STACK 
017670 010546 MOV R5,-(SP) 
41 017672 005202 INC R2 COUNT DIGITS ON STACK 
42 017674 005703 TST R3 CHECK IF QUOTIENT IS ZERO 
43 017676 001372 BNE 6$ 
44 017700 0057 TST R4 
45 017702 001370 ‘ BNE 6$ 
46 017704 020027 000012 é CMP RO,#10. ;1F RADIX IS DECIMAL 
47 017710 0014 BEQ 10$ : JUST GO PRINT DIGITS ON STACK 
48 017712 010103 MOV R1,R3 OTHERWISE COMPUTE NUMBER OF LEADING ZEROS 
é° 017714 162700 000014 SUB #12. ,RO :DIVIDEND IS BITS IN NUMBER 
50 017720 5 2 BGT 7$ :DIVISOR IS BITS PER DIGIT PRINTED 
51 017722 012700 000003 MOV #3,RO j (3 OR 4) 
52 017726 004737 020070 7$: CALL DIVIDE 








CZUDCAO UDA AND DRIVE 
GLOBAL SUBROUTINES SEC 


53 017732 005705 
54 0 
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TST RS 
BEQ 8$ 
INC R3 
8$: SUB R2,R3 
BEQ 10$ 
000060 002172 MOVB #°0,FRRC 
9S: PRINTX SERROME #ERRCHR 
002172 
005316 
000002 
000006 
DEC R3 
BNE 9$ 
10$: POP R5 
MOV (SP)+,R5 
000060 ADD #°0, 
000071 CMP RS,a'9 
BLE 11$ 
000007 ADD #<'A="9=1>,R5 
002172 11$: MOVB R5,ERRCHR 
PRINTX #ERRONE , #ERRCHR 
002172 
005316 
000006 
DEC rs 
BNE 10$ 
POP <R4,R5,R3,R2> 
MOV (§P)+ RS 
MOV (SP)+,R5 


MOV (SP)+,R2 
RE TURN 


SEQ 0099 


7 1f REMAINDER NOT ZERO 
; INCREMENT QUOTIENT 


; SUBTRACT DIGITS ON STACK 
[NO LEADING ZEROS IF ZERO 
‘STORE o> CHARACTER 
SPRINT A ZERO 
MOV MERRCHR ,=(SP) 
MOV MERRONE , = (SP) 
MOV #2,-(SP) 
MOV SP RO 
TRAP CSPNTX 
ADD #6,SP 
REPEAT UNTIL COUNT REACHES ZERO 
:GET CHACACTER FROM STACK 


sCNVERT TO ASCII DIGIT 
7 1F GREATER THAN A 9 
; CONVERT TO A OR HIGHER 
: FOR HEX DIGIT 
STORE CHARACTER 
PRINT IT 
MOV MERRCHR ,-(SP) 


MOV MERRONE ,-(SP) 
MOV #2,-(SP) 
MOV SP RO 
TRAP CSPNTX 
#6, SP 


REPEAT FOR ALL DIGITS 
: ON STACK 


J 8 
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GLOBAL TINES SECTION 
1 sDIVIDE 
; sDIVIDE A 32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 
4 REPLACE DIVIDEND WITH QUOTIENT AND RETURN REMAINDER, 
Z sWILL NOT CHECK FOR DIVIDE BY ZERO. 
? ; INPUTS: 
wm ‘ R3 = LOW 16 BITS OF DIVIDEND 
9 5 R4 = HIGH 16 BITS OF DIVIDEND 
10 4 RO = DIVISOR 
11 OUTPUTS: 
12 ; R3 = LOW 16 BITS OF QUOTIENT 
13 : R4 = HIGH 16 BITS OF QUOTIENT 
13 ; RS = REMAINDER 
16 020070 DIVIDE: PUSH R2 
020070 010246 MOV R2,-(SP) 
17 020072 012702 000040 MOV #32.,R2 ;SET UP SHIFT COUNT 
18 020076 005005 CLR RS ;START WITH ZERO REMAINDER 
19 020100 1$: ASL R3 SHIFT LEFT INTO RS 
20 020102 1 ROL RS 
21 020104 006105 ROL R5 
22 020106 020005 CMP RO,RS sWILL DIVISOR GO INTO REMAINDER 
23 020110 101002 BHI ZONLY SUBTRACT IF IT WILL 
24 020112 5 SUB RO.RS : SUBTRACT DIVISOR 
25 020114 005203 INC R3 PUT A ONE INTO QUOTIENT 
26 020116 005302 23: DEC R2 ; COUNT THE SHIFTS 
27 020120 001367 BNE 1$ 
28 020122 POP R2 
122 012602 MOV (SP)+,R2 


20 
29 020124 000207 RE TURN 








a a a 
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ac 
= 
8 


OUTINES 














004737 
062705 


ek aed dd od 
ONO WNFWR-oO 
Oo oO 


25 020212 105020 
214 012605 
012604 


0202 
27 020226 


000002 
000012 


020070 
000060 


002260 


;BUILD DEFAULT 28-B1T NUMBER 


3 INPUT: 


SOQUTPUT: 


BLD28: 


1$: 


2s: 





R4 = POINTER TO 2 WORD DEFAULT NUMBER 
TEMP = ASCIZ STRING REPRESENTING DEFAULT NUMBER 


PUSH “2 od oR3,R4,R5> 


MOV R5,-(SP) 
MOV (R4) ,R3 
MOV 2(R4) ,R4 
MOV #10.,R0 
CLR R1 
a iE 
ADD #° mt RS 
PUSH R 
MOY R5,-(SP) 
INC R1 


MOV R3.R5 
BIS 7 Tae 


BNE 
MOV #TEMP,RO 
POP R5 
MOV (SP)+,R5 
<r" i (RO)+ 
DEC R 


BNE 33 
CLRB (RO)+ 
POP <R5, Ra et R1,RO> 


MOV (SP)+,RO 
RE TURN 


GET NUMBER 


sDIVISOR IS 10. 
;CLEAR CHARACTER COUNT 


; CONVERT REMAINDER TO ASCII CHARACTER 
;STORE ON STACK 


; COUNT THE CHARACTER 
REPEAT UNTIL QUOTIENT IS ZERO 


:GET POINTER TO STRING 
;PUT CHARACTERS INTO STRING 


7END WITH NULL 





MEW —OOCONAUF wr 


ed ad ed ed 


020230 


0 
40 020350 
41 020352 


42 
43 020354 
020354 


020364 


012746 
012746 
010600 
104417 
062706 
000261 
000415 
012746 


012746 
010600 


002260 


000060 
000011 


170000 


010002 
000001 


000004 


010044 
000001 
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GLOBAL SUBROUTINES SECTION 


CONVERT ASCIZ STRING TO 28-BIT NUMBER 


; INPUTS: 
; TEMP = ASCIZ STRING UP TO 9 CHARACTERS LONK 
 utPuT R4 = ADDRESS OF TWO WORD STORAGE 


OUTPUTS: 

: iF STRING IS VALID NUMBER 
: TWO WORDS AT R4 LOADED WITH NUMBER 
: R4 POINTING TO WORD AFTER STORAGE 


CARRY CLE 
IF STRING INVALID 
ERROR MESSAGE PRINTED 
CARRY SET 
CNV28: PUSH a ~ R2,R3> 
v'RO.=<SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
ne 7 sSTART WITH ZEROS 
L 
MOV #TEMP,R2 ;GET ADDRESS OF STRING 
1$: MOVB (R2)+, R3 GET A DIGIT FROM STRING 
BEQ 3$ 7 IF NULL CHARACTER, ALL DONE 
SUB #'°0,R3 ; SUBTRACT CHARACTER 0 
BMI 2$ 
CMP #9.,R3 
0 2$ 
ASL RO sMULTIPLY BY 2 
ROL R1 
PUSH <R71,R0> ;SAVE N X-2 
MOV R1,-(SF° 
MOV RO,-(SP) 
ASL RO :TIMES 2 AGAIN FOR N X 4 
ROL R1 
ASL RO sTIMES 2 AGAIN FOR N X 8 
ROL R1 
ADD (SP)+,RO ;ADD N X 2 TO GIVE N X 10 
ADC R 
ADD (SP)+,R1 
at ~ Nana ;ADD. CURRENT DIGIT 
BIT #170000,R1 3 ty SIZE OF NUMBER 
BEQ ‘MUST NOT BE MORE THAN 28 BITS 
PRINTF #INP28A PRINT PROPER RANGE nov 
MOV 
MOV 
TRAP 
. ADD 
SEC :SET CARRY TO ASK AGAIN 
BR 4$ 
2$: PRINTF #INP28B 


PRINT ILLEGAL CHARACTER 
MOV 


MOV 
MOV 


SEQ 0102 
tm a7 (SP) 
#1,-(SP) 

SPR 
CSPNTF 
#4 SP 


#INP28B,-(SP) ... 
#1,~(SP) 
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GLOBAL SUBROUTINES SECTION 


104417 oe TRAP CSPNTF 
020370 062706 000004 ADD #4 ,SP 
44 020374 000261 SEC . 
- 020376 OODGO3 22. nernnnnenennnens OR I aia ernst keine 
47 020400 010024 3$: MOV RO, (R4)+ ;MOVE NUMBER TO STORAGE AREA 
48 020402 010124 MOV R1,(R4)+ 
49 020404 000241 CLC CLEAR CARRY TO INDICATE ALL IS WELL 
50 020406 4$: POP <R3, nae R1,R0> 
020406 012603 V (SP)+,R3 
020410 012602 MOV (SP)+,R2 
020412 012601 MOV (SP)+,R1 
020414 012600 MOV (SP)+,RO 
51 020416 000207 RETURN 


Sn eed 


sss sss sss 
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GLOBAL SUBROUTINES SECTION 


! PRINT HEX NUMBERS WITH LEADING SPACE 
3 020420 112737 000040 002172 T2PNTW: MOVB #' ,ERRCHR PRINT A SPACE 
4 020426 PRINTF #ERRONE ,#ERRCHR 
020426 012746 002172 MOV MERRCHR ,=(SP) 
020432 012746 005316 MOV MERRONE ,-( SP) 
020436 012746 000002 MOV #2,-(SP) 
020442 0 MOV oR 
020444 104417 TRAP CSPNTF 
020446 062706 000006 ADD #6,SP , 
5 020452 PUSH R1 
020452 010146 MOV R1,=(SP) 
6 020454 000301 SWAB R1 
7 020456 004737 020524 CALL _T2PNT :PRINT HIGH TWO DIGITS 
8 020462 POP R1 
020462 012601 MOV (SP)+,R1 
9 020464 004737 020524 CALL _T2PNT sPRINT LOW TWO DIGITS 
1 020470 000207 RETURN 
12 020472 112737 000040 002172 T2PNTB: MOVB #° ,ERRCHR PRINT A SPACE 
13 020500 PRINTF #ERRONE ,#ERRCHR 
020500 012746 002172 MOV MERRCHR ,~(SP) 
020504 012746 005316 MOV MERRONE ,~ (SP) 
020510 012746 000002 MOV #2,-(SP) 
020514 010600 MOV SP ,RO 
020516 104417 TRAP CSPNTF 
2 020520 062706 000006 ADD #6,SP 
iz PRINT TWO HEX DIGITS FROM NUMBER IN R1 
17 020524 T2PNT: PUSH R1 ; SAVE NUMBER 
020524 010146 MOV R1,-(SP) 
18 020526 006001 ROR R1 SHIFT TO GET HIGH DIGIT 
19 020530 006001 ROR R1 
20 020532 006001 ROR R1 
21 020534 006001 ROR R1 
22 020536 004737 020544 CALL_T2PNTO PRINT TWO DIGITS 
23 020542 POP R1 GET LOW DIGIT AGAIN 
020542 012601 MOV (SP)+,R1 . 
24 020544 042701 177760 T2PNTO: BIC #*°C17,R1 :CLEAR OTHER BITS 
25 020550 062701 000060 ADD #'0,Ri CONVERT TO ASCII CHARACTER 
26 020554 020127 000071 CMP R1,4'9 2 IF GREATER THAN A 9 
27 020560 003402 BLE T2PNTD : CONVERT TO A OR HIGHER 
28 020562 062701 000007 ADD #<'A-'9-1>,R1 :__FOR HEX DIGIT 
29 020566 110137 002172 T2PNTD: MOVB_R1,ERRCHR PRINT THE DIGIT 
30 020572 PRINTF #ERRONE ,#ERRCHR 
020572 012746 002172 MOV MERRCHR ,~(SP) 
020576 012746 005316 MOV #ERRONE ,~(SP) 
020602 012746 000002 MOV #2,-(SP) 
020606 010600 MOV SP,RO 
020610 104417 TRAP CSPNTF 
02 062706 000006 ADD #6,SP 


0612 
31 020616 000207 RE TURN 








as Ss ss Ss SH 


4 
45 020736 
020736 
46 020740 
020740 
47 020742 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


012602 


012600 
000137 


000040 


000060 
000011 
000021 
000026 
000007 


000040 


015126 





3 T2GNUM 
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[GET A HEX DIGIT FROM AN ASCII INPUT STRING 


‘INPUTS: 
OUTPUTS: 


T2GND1: 
T2GND2: 


T2GND3: 


T2GNX: 


T2GNE : 


R1 = STRING POINTER 


R4 = NUMBER 
R1 = UPDATED STRING TO CHARACTER AFTER NUMBER 
RO = COUNT OF DIGITS (0 IF END OF LINE FOUND) 


CLR RO CLEAR DIGIT COUNT 

TSTB (R1) >CHECK IF END OF LINE 

BEQ T2GNX ;REPORT NULL CHARACTER F OUND 
1), CHECK IF A SPACE 

BNE T2GND1 SIF SO, IGNORE IT 


CLR R4 CLEAR NUMBER STORAGE 
PUSH R2 7SAVE REGISTER 


MOV R2,-(SP) 
MOVB (R1)+,R2 ;GET CHARACTER 
SUB #'0,R2 sCONVERT TO HEX DIGIT 


T2 
CMP R2,A4<'F="0> 


MOV (SP)+,R2 
TSTB (R1) 


POP R2 CLEAN UP THE STACK 
MOV (SP)+,R2 

POP RO 
MOV (SP)+,RO 

JMP T2CMDE 


ee 
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} :PNTERR 
3 [PRINT ERROR MESSAGE FROM DM PROGRAM REQUEST 11 OR 12. 
5 ‘INPUTS: | 
é 3 RS = CONTROLLER TABLE ADDRESS 
7 R4 = MESSAGE DATA ADDRESS 
8 SQUTPUTS: | 
10 : NONE 
| 
11 020746 PNTERR: PUSH “Z a R2,R3> 
020746 os V'RO.=(SP) 
020750 010146 mov R1,-(SP) | 
020752 010246 MOV R2.=(SP) | 
020754 010346 MOV R3,=-(SP) ; | 
12 020756 005764 000004 TST 4(R4) :GET DRIVE NUMBER 
13 020762 002004 BGE 1$ [CHECK IF BIT 15 S$ | 
14 020764 016537 000002 002074 MOV C.UNIT(RS) ,LSLUN :IF SO, GET UNIT PROM CONTROLLER TABLE 
15 020772 000406 BR 2$ 
16 020774 1$: PUSH R4 sSAVE DATA ADDRESS 
020774 010446 MOV R4,-(SP) 
17 020776 016401 000004 MOV 4(R4).R1 :GET DRIVE NUMBER 
18 021002 004737 017414 CALL GTDRVT ‘GET DRIVE TABLE ADDRESS 
19 021006 POP R4 ‘RESTORE DATA ADDRESS 
021006 012604 MOV (SP)+,R4 | 
20 021010 012702 002162 z$: MOV #ERRTYP,R2 GET POINTER TO ERROR TABLE 
21 021014 116422 000003 MOVB 3(R4),(R2)+ ‘GET ERROR TYPE 
22 021020 105022 CLRB (R2)+ [CLEAR HIGH BYTE | 
23 021022 116422 000002 MOVB 2(R4), (R2)+ “GET ERROR NUMBER 
24 021026 105022 CLRB (R2)+ ‘CLEAR HIGH BYTE 
25 021030 005022 CLR (R2)+ “CLEAR MESSAGE POINTER | 
26 021032 012712 021052 MOV #ERRRTN, (R2) [GET ROUTINE NUMBER 
27 021036 ERROR PRINT THE ERROR MESSAGE | 
021036 104460 TRAP —_ CSERROR | 
28 021040 POP <R3, R2. rit ,RO> | 
021040 012603 (§P)+,R3 
021042 012602 mov (Sp)e. *R2 
021044 012601 MOV (SP)+-R1 | 
021046 012600 MOV (SP)+.RO 
29 021050 000207 RETURN 
31 021052 BGNMSG ERRRTN zERROR REPORT ROUTINE 
021052 ERRRTN: : 
32 021052 013702 002226 MOV TNUM,R2 :GET TEST NUMBER | 
33 021056 006302 ASL R2 * DOUBL 
34 021060 PRINTB #ERRMB, TNAMES-2(R2), (R4),C.UADR(RS) :PRINT BASIC MESSAGE LINE WITH DM PC 
021060 016546 000000 MOV ff UADR (RS), -(SP) 
021064 011446 MOV (R4) ,-(SP) 
016246 017204 MOV TNAMES-2(R2) -(SP) 
021072 012746 006216 MOV #ERRMB, - | 
021076 012746 000004 MOV #4, we) 
021102 0 MOV p* 
021104 104414 TRAP C$PNTB | 
021106 062706 000012 #12,SP | 
35 021112 005764 000004 TST 4(R4) :CHECK IF DRIVE NUMBER GIVEN 
36 021116 100412 BMI 1$ ‘BRANCH IF NOT 
37 021120 PRINTB #ERRMBD,4(R4) ‘PRINT DRIVE NUMBER 
} 
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021120 016446 000004 MOV 4(R4) ,=(SP) 
0211 $3 012746 006260 MOV #ERRMBD , = (SP) 
0211 012746 000002 MOV #2,- (SP) 
021134 0 MOV -R 
021136 104414 TRAP C$PNTB 
021140 062706 000006 ADD #6,SP 

38 021144 004737 024436 1$: CALL RNTIME PRINT RUNTIME 

39 021150 062704 000006 ADD #6,R4 ; INCREASE R4 TO POINT TO MESSAGE POINTER 

40 021154 012402 MOV (R4)+,R2 GET MESSAGE POINTER 

41 021156 006302 ASL R2 ;DOUBLE TO MAKE BYTE OFFSET 

42 021160 063702 002212 ADD DMPROG,R2 | ZADD TO START OF MESSAGE STRINGS 

43 021164 067702 161022 ADD @DMPROG,R2 zADD SIZE OF MAIN PROGRAM 

44 021170 105712 TSTB (R2) CHECK FIRST BYTE 

45 021172 001001 BNE NCON IF ZERO 

46 021174 005202 INC R2 ; INCREMENT TO NEXT BYTE 

47 021176 004737 016602 NCON: CALL OSTRNG ;OUTPUT ACCORDING TO STRING 

48 021202 ENDMSG 
021202 L10020: 

9 021202 104423 ' TRAP C$MSG 
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GLOBAL SUBROUTINES SECTION 
} ;LOADDM 
Z ;LOAD AND START A DM PROGRAM INTO A CONTROLLER 
5 ; INPUTS: 
7 RS ~ CONTROLLER TABLE ADDRESS 
? SIMPLICIT INPUTS 
8  urpurs eros - “POINTER TO START OF DM PROGRAM IN MEMORY 
10 : IF LOAD SUCCEEDS = Z CLEAR 
11 : CONTROLLER TABLE MARKED LOADED 
te : IF ERROR - Z SET 
5 
14 021204 | LOADDM: 
28 021204 016504 000004 MOV C.VEC(RS) .Ré GET VECTOR OF UDA 
29 021210 D CT.VEC.R 
021210 042704 177000 Bic #*C<CT.VEC>,Ré 
30 021214 010501 R5,R1 GET INTERRUPT SERVICE LINK 
31 021216 062701 000010 ADD #CLISR,R1 
32 021222 SETVEC R4,R1,4PRIO7 SET UP INTERRUPT VECTOR 
621222 012746 000340 MOV _—s- #PRIO7, -(SP? 
021226 010146 MOV — R11, = (SP) 
21230 010446 MOV R4,- (SP) 
021232 012746 000003 MOV «#3. =(SP) 
021236 104437 TRAP —- CS$SVEC 
021240 062706 000010 ADD —s« #10, SP 
INITIALIZE UDA WITH SMALLEST 
021244 0062 ASR R4 [POSITION VECTOR FOR UDA 
35 021246 006204 ASR R4 
36 021250 004737 022742 CALL UDAINT 3; RING "4° AND INTERRUPTS ENABLED 
37 021254 001561 BEQ LOADER SBRANCH IF AN ERROR 
3 021256 00473 012746 CALL HCOMM zALLOCATE SPACE FOR HOST COMM AREA 
40 021262 023727 002226 0c0001 CMP TNUM, #1 :1F TEST NUMBER 1 
41 021270 001441 BEQ LOADT1 : DO SPECIAL LOAD 
42 021272 017701 160714 V @DMPROG.R1 GET SIZE OF PROGRAM 
43 021276 012700 000002 LOADB: MOV #OP.ESP,RO :BUILD EXECUTE SUPPLIED PROGRAM COMMAND PACKET 
44 021302 004737 021624 CALL BLDCMD 
45 021306 013764 002212 000124 MOV DMPROG,HC.CPK+P.UADR(R4)  ;LOAD MAIN PROGRAM ADDRESS 
46 021314 010164 000120 MOV R1,HC. CPK+P. BCNT(R4) : AN 
47 021320 013764 002212 000140 MOV DMPROG,HC.CPK+P.OVRL(R4) :LOAD OVERLAY ADDRESS 
48 021326 067764 160660 000140 ADD @DMPROG,HC. CPK+P.OVRL (R4) 
2 021334 004737 021710 CALL SNDCMD :SEND COMMAND. TO_ UDA 
53 021340 001527 BEQ LOADER GET OUT IF ERR 
54 021342 737 022050 CALL WAI TMS ‘GAIT FOR MESSAGE RESPONSE 
55 021346 032764 000037 000032 BIT #ST.MSK,HC.MPK+P.STS(R4) | CHECK FOR ERRORS 
56 021354 001115 BNE LOADE1 
57 021356 042765 000024 000014 BIC #CT.CMD+CT.REQ,C.FLG(R5) | ;CLEAR COMMAND OUTSTANDING FLAG 
58 021564 052765 000002 000014 BIS #CT.RN,C. FLG(RS) SET DM PROGRAM RUNNING FLAG 
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GLOBAL SUBROUTINES SECTION 
1 ;LOAD DM PROGRAM FROM MEMORY SPACE TESTED DURING 
¢ : INITIALIZATION IN TEST 1 
4 021374 017704 160612 LOADT1: MOV @DMPROG,R4 :GET SIZE OF DM PROGRAM IN BYTES 
5 021400 162706 00004 SUB #ADMMAIN,R4 
6 021404 013700 002212 MOV DMPROG,RO :GET ADDRESS OF DM PROGRAM 
7 021410 062700 ADD #DMMAIN,RO 
8 021414 005001 CLR R1 ZSTART WITH OFFSET OF ZERO 
10 021416 012703 000170 LT1L1: MOV #<HC.BSZ*2>,R3 :GET SIZE OF BOTH BUFFERS 
11 021422 020403 CMP R4,R3 TIF FEWER BYTES REMAINING IN PROGRAM 
12 021424 103007 BHIS LT11 
13 021426 010403 MOV R4,R3 ;USE ACTUAL BYTE COUNT 
14 021430 LT11: PUSH R3 ZSAVE THE BYTE COUNT 
021430 010346 MOV R3,-(SP) 
15 021432 013702 002174 MOV FFREE,R2 :GET ADDRESS OF BUFFER 
16 021436 162702 000170 SUB #<HC.BS2*2>,R2 
17 021442 PUSH R2 :SAVE BUFFER ADDRESS 
021442 010246 MOV R2,-(SP) 
18 021444 012022 LTIL2: MOV (RO)+,(R2)+ sMOVE DATA TO BUFFER 
19 021446 162703 000002 SUB #2,R3 ‘COUNT BYTES 
20 021452 001374 BNE LTiL2 
21 021454 POP R2 :RESTORE BUFFER ADDRESS 
021 012602 MOV (SP)+,R2 
22 021456 POP R3 sRESTORE BYTE COUNT 
021456 012603 MOV (SP)+,R3 
23 021460 004737 021506 CALL LOAD ;LOAD INTO UDA 
24 021464 001455 BEQ LOADER TIF ERROR, GET OUT NOW 
25 021466 00620 ASR R3 SCONVERT BYTES TO WORDS 
26 021470 060301 ADD R3,R1 : INCREASE OFFSET FOR NEXT BUFFER 
27 021472 006303 ASL R3 “CONVERT WORDS TO BYTES 
28 021474 160304 SUB R3,R4 [REDUCE REMAINING BYTE COUNT 
29 021476 001347 BNE iTiL1 ‘GET NEXT BUFFER 
30 021500 012701 000040 MOV #DMMAIN,R1 7GET A BYTE COUNT OF HEADER ONLY 
31 021504 00067 BR LOADB *NOW START 
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000001 000140 
021710 


022050 
000037 000032 
000004 000014 


;LOAD 


G 9 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL-81 15:14:57 PAGE 70 
GLOBAL SUBROUTINES SECTION 


SEQ 0110 


‘ISSUE DOWNLINE LOAD COMMAND TO UDA. CHECK THAT LOAD 
‘HAPPENS WITHOUT ERROR. 


: INPUTS: 


; OUTPUTS: 


R1 = OFFSET FOR DM PROGRAM 

R2 = ADDRESS OF BUFFER CONTAINING PROGRAM 
R3 = SIZE OF BUFFER IN BYTES 

R5 = CONTROLLER TABLE ADDRESS 


Z CLEAR IF NO ER 


ROR 
Z SET IF ERROR AND ERROR REPORTED 


PUSH <RO,R3,R4> 
MOV 


MOV R4,-(SP) 
MOV #OP.MWR,RO 
CALL_BLDCMD 
MOV R2,HC.CPK+P.UADR(R4) 
MOV R3,HC.CPK+P.BCNT (RS) 
MOV R1,HC.CPK+P.RGOF (R4) 
MOV #1 2 Peat ape pine’ a 


CALL WAITMS 
BIT #ST.MSK,HC.MPK+P.STS(R4) 
BNE LOADE1 
BIC #CT.CMD,C.FLG(RS) 
POP <R4,R3,RO0> 
MOV (SP)+,R4 
MOV (SP)+,R3 
MCV (SP)+,RO 
CLZ 
RE TURN 


GET DOWNLINE LOAD COMMAND 
[BUILD COMMAND PACKET 
STUFF IN BUFFER ADDRESS 
[STUFF IN BYTE COUNT 
[STUFF IN OFFSET 

STUFF IN REGION ID 1 
;SEND COMMAND TO UDA 


WAIT FOR MESSAGE RESPONSE 
;LOOK FOR ANY ERROR 


:CLEAR COMMAND ISSUED 


sCLEAR Z TO INDICATE NO ERROR 


rE 
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;UDA FAILED TO DOWNLINE LOAD DM PROGRAM 
LOADE1: ERRHRD 20,LO0ADM1 


LOADER: SEZ 
RE TURN 





TRAP — 
-WORD LOADMI 
«WORD 0 

;SET Z TO INDICATE ERROR OCCURRED 


SEQ 0111 





~~ ss 


021624 


31 021706 


010146 


co 
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177777 
000030 


000114 


;BLDCMD 


‘BUILD A COMMAND IN COMMAND PACKET 


BLDCMD: 


6LDCO: 
BLDC1: 


Sz 
R5 = CONTROLLER TABLE ADDRESS 


RO - COMMAND CODE 
R6 - ADDRESS OF HOST COMM AREA 


COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. ALL OTHER FIELDS CLEARED. 


CMD REFERRENCE NUMBER IN CONTROLLER TABLE INCREMENTED AND RESULT 
IN COMMAND PACKET. 
RO = CONTENTS DESTROYED 


PUSH <R1,R0> 
MO 


V R1,-(SP) 

MOV RO,-<(SP) 
MOV C.RING(RS) ,R4 ;GET ADDRESS OF HOST COMM AREA 
MOV R4,RO :COPY TO RO 
ADD #HC.CEV.RO ; COMPUTE ADDRESS OF COMMAND ENVELOPE 
MOV #HC.PSZ,(RO)+ [LOAD PACKET LENGTH 
MOV #DUP,R1 [LOAD DIAG CIRCUIT IDENTIFIER 
CMP #OP.MWR, (SP) :1F CODE IS MAINTENANCE WRITE 
BNE BLDCO ; GET OTHER CIRCUIT IDENTIFIER 
MOV ee 
MOV R1,(RO)+ PUT IDENTIFIER INTO PACKET 
MOV pe PSZ>/2,R1 :GET WORDS TO CLEAR 
CLR (RO)+ :CLEAR PACKET 
DEC R1 
BNE BLDC1 


POP HC.CPK+P.OPCD(R4) PUT OPCODE IN PACKET 
MOV (SP)+,HC.CPK+P.OPCD(R4) 

POP R1 RESTORE R1 
MOV (SP)+,R1 


SEQ 0112 


——-———- 
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} ; SNDCMD 
° [SEND A COMMAND TO THE UDA. 
4 [CLEAR THE RESPONSE PACKET. MARK BOTH PACKETS AVAILABLE TO THE 
5 :UDA. SET COMMAND ISSUED BIT IN CONTROLLER TABLE AND INITIALIZE 
6 TIMEOUT COUNTER 
8 3 INPUT S: 
9 RS = CONTROLLER TABLE ADDRESS 
10 OUTPUTS: 
1 i ; R4 = ADDRESS OF HOST COMM AREA 
13 
14 021710 SNDCMD: PUSH <RO,R1> 
021710 010046 MOV RO,=(SP) 
021712 010146 MOV R1.=(SP) 
15 021714 016504 000016 MOV C.RING(RS) .RG SLOAD R4 WITH HOST COMM AREA ADDRESS 
16 021720 005265 000044 INC C.REF (RS) : INCREMENT CMD REFERENCE NUMBER 
17 021724 016564 0000464 000104 MOV C-REF (RS) HC.CPK+P.CRF(R4) :PUT IN PACKET 
18 021732 012700 000014 MOV #HC.MEV,RO [POINT TO MESSAGE ENVELOPE 
19 021736 00 ADD R4 20 
20 021740 012701 000032 MOV #<HC.PSZ+HC.ESZ>/2,R1 ZSIZE OF MESSAGE PACKET 
21 021744 005020 SNDC1: CLR {RO} + [CLEAR ENTIRE MESSAGE PACKET 
22 021746 005301 DEC R 
23 021750 001375 SNDC1 
24 021752 012764 140000 900006 MOV #RG.OWN+RG.FLG,HC.MCT(RS) sMARK MESSAGE PACKET AVAILABLE 
25 021760 012764 100000 000012 MOV #RG.OWN,HC.CCT(R4) “MARK COMMAND TO UDA 
26 021766 005775 000000 TST a(R5) ;TELL UDA COMMAND IS THERE 
27 021772 052765 000004 000014 Bis act. CMD D.C-FLGCRS) [MARK COMMAND ISSUED 


022000 012601 mov" (SP)+,R1 
022002 012600 MOV (SP)+,RO 





SEQ 01135 
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SECTION 
} : CLRBUF 
3 7CLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
; SAND LOAD BUFFER DESCRIPTOR IN COMMAND PACKET TO THE BUFFER 
6 ; INPUTS: 
7 : R5 = CONTROLLER TABLE ADDRESS 
8 ; R4 = ADDRESS OF HOST COMM AREA 
9 ; RO = OFFSET INTO HOST COMM AREA TO DATA BUFFER 
10 ; OUTPUTS: 
11 ; DATA BUFFER CLEARED 
12 ; COMMAND PACKET POINTING TO BUFFER 
13 ; BYTE COUNT SET TO SIZE OF BUFFER 
13 : R4 - ADDRESS OF DATA BUFFER 
16 022006 CLRBUF: PUSH <RO,R1> 
022006 010046 MOV RO,-(SP) 
2010 010146 MOV R1,~(SP) 
17 022012 0400 ADD R4,RO z:ADD START OF HOST COMM AREA TO OFFSET 
18 022014 010064 000124 MOV RO,HC.CPK+P.UADR(R4) ;PUT BUFFER ADDRESS IN COMMAND PACKET 
19 022020 012764 000074 000120 MOV #HC.BSZ.HC.CPK+P.BCNT(R4) ;PUT SIZE OF BUFFER IN COMMAND PACKET 
20 022026 010004 MOV RO,R4 PUT BUFFER ADDRESS IN R4 
21 022030 012701 000036 MOV #HC.BSZ/2,R1 :GET SIZE OF BUFFER IN WORDS 
22 022034 005020 CLRBFL: CLR (RO)+ ;CLEAR ALL THE WORDS 
23 022036 005301 DEC R1 
24 022040 001375 E CLRBFL 
25 022042 POP <R1,RO0> 
22042 012601 MOV (SP)+,R1 
012600 MOV (SP)+,RO 


022044 
26 022046 000207 RETURN 
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} sWAITMS 

i :WAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 

5 : INPUTS: 

6 R5 = ADDRESS OF CONTROLLER TABLE 

7 SOUTPUTS: 

8 ; Z CLEAR IF NO ERR 

10 : Z SET IF ERROR, MESSAGE PRINTED 

11 022050 WAITMS: PUSH <RO,R1> io 
022050 010046 MOV RO,-(SP) 
022052 010146 MOV R1,-(SP) 

12 022054 012700 000036 MOV #30.,RO SET TIME OUT VALUE OF 30 SECONDS 

13 022060 010501 MOV R5,R1 [POINT TO TIME OUT COUNTER 

14 022062 062701 000040 ADD #C.TO,R1 

15 022066 004737 022660 CALL SETTO 

4 Bscore 011500 - MOV (R5),RO GET ADDRESS OF UDAIP REGISTER 

19 022074 032765 000010 000014 BIT ACT.MSG,C.FLG(R5S) ;LOOK IF INTERRUPT OCCURRED 

20 022102 001030 BNE 3$ “BRANCH IF SO 

21 022104 016001 000002 MOV 2(RO),R1 ;LOOK AT UDASA REGISTER 

22 022110 001034 BNE 4$ ‘BRANCH IF ERROR CODE PRESENT 

28 022112 BREAK 
022112 104422 TRAP C$BRK 

29 022114 005737 002352 TST KW.CSR SEE IF A CLOCK ON SYSTEM 

30 022120 001765 BEQ 1$ 

31 022122 023765 002364 000042 CMP KW.EL+2,C.TOH(RS) sCHECK IF TIMEOUT HAS HAPPENED 

32 022130 101005 BHI 2$ 

33 022132 001360 BNE 1$ 
0221 023765 002362 000040 CMP KW.EL,C.TO(RS) 

35 022142 103754 BLO 1 

36 022144 2$: ERRDF 39,0,RSPTCE 
022144 104455 TRAP CSERDF 
022146 000047 - WORD 39 
022150 000000 -WORD 0O 
022152 012636 .WORD RSPTOE 

37 022154 POP <R1,R0> 
022154 012601 MOV (SP)+,R1 
022156 012600 MOV (SP)+,RO 

38 022160. 000264. SEZ 

39 0221 000207 RETURN 
0221 042765 000010 000014 3$: BIC ACT.MSG,C.FLG(RS) sCLEAR MESSAGE RECEIVED FLAG 

41 022172 POP <R1,RO0> 
022172 012601 MOV (SP)+,R1 
022174 012600 MOV (SP)+.RO 

42 022176 000244 iz :GIVE NO ERROR RETURN 

43 022200 000207 RETURN 

4 022202 4$: ERRDF 40,0,RSPTME 
022202 104455 TRAP CSERDF 
022204 000050 «WORD 40 
022 000000 «WORD 0O 
022210 012662 -WORD RSPTME 

45 022212 POP <R1,R0> 
022212 012601 MOV (SP)+,R1 _ 
022214 012600 MOV (SP)+,RO 

46 022216 000264 SEZ 
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47 022220 000207 RE TURN 
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J sAPRINT 

3 ‘CONVERT AN 18 BIT ADDRESS STORED IN TWO WORDS INTO A FORMAT 
: ; THAT WILL ALLOW PRINTING OF THE 18 BIT NUMBER. 

6 INPUTS: 

7 é RO - a}? OF TWO WORD BLOCK epee Bo ADDRESS. 

8 : FIRST WORD CONTAINING LOW 16 BITS. 

% SECOND WORD CONTAINING HIGH 2 BITS. 

10 SOUTPUTS: 

11 ~ R1 = HIGH 3 BITS OF ADDRESS 

i ; R2 - LOW 15 BITS OF ADDRESS 

14 022222 016001 000002 APRINT: MOV 2(RO),R1 ;GET HIGH ¢ BITS 

15 022226 006301 ASL R1 :SHIFT LEFT 

16 022230 011002 MOV (RO),R2 ;GET LOW 16 BITS 

17 022232 100001 BPL APRIZ sIF 16TH BIT SET 

18 022234 005201 INC R1 *PLACE IT IN WITH HIGH 2 BITS 
19 022236 000207 APRIZ: RETURN 





SUBROUTINES SECTION 


022240 


NO USWN-OVONAUSEWN— 


~— — 3 SS = 


0 0 
18 022274 
19 300 


20 022304 
21 022310 


6 
41 022450 


010046 
005037 


012746 


002366 


172342 


172356 


002370 


: INITKT 


SINITIALIZE THE KT OPTION (IF AVAILABLE) SO THAT IT CAN BE TURNED 
[ON AND OFF BY KTREAD AND KTWRITE ROUTINES. 


3 INPUTS: 
:OUTPUTS: 


Py 
Py 
. 
. 
* 
’ 


INITKT: 
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ALL KT REGISTERS LOADED SO THAT IF THE KT OPTION IS TURNED ON, ALL 
MEMORY WOULD APPEAR THE SAME AS WHEN TURNED OFF. KT OPTION IS TURNED 


OFF IF ON WHEN CALLED. 
KTMEM = O IF KT EXISTS, 


PUSH RO 


MOV RO,-(SP) 
CLR NXMAD 
SETVEC #4,4NXMI ,#PRIO7 


SRO 


V #7600,PAR7 


CLRVEC #4 


MOV NXMAD ,KTMEM 


CLR 
CLR 
POP 


RE TURN 


KTBASO 
KTBASA 


MOV (SP)+,RO 


a. tole -RO 


-1 IF KT DOES NOT EXIST. 


chap MEMORY FLAG 
TRAP NON-EXISTANT a 


#PR107,-(SP) 
MOV ANXMI ,~ (SP) 
MOV #4 ,-(SP) 
MOV #3.-(SP) 
TRAP C$SVEC 
DD 10,SP 


A sd 
MAKE SURE MEMORY MANAGEMENT IS OFF 
sFILL PDR'S 
:TO ALLOW READ AND WRITE 
:TO ALL LOCATIONS 


;POINT PAGE ADDRESS REGISTERS 
zsAT SAME PHYSICAL ADDRESS 


RELEASE THE VECTOR 
MOV #4,R0 


TRAP CSCVEC 
STORE KT EXISTS FLAG 
:CLEAR OFFSET TO REACH BASE 
CLEAR BASE ADDRESS 


SEQ 0118 | 
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CZUDCAO UDA AND DRIVE DI 
GLOBAL SUBROUTINES SECTION 
} ;KTBASE 
3 :SET BASE ADDRESS FOR BUFFER IN MEMORY. KT READ AND KTWRITE CALLS 
4 ;WILL THEN REFERENCE THE BUFFER USING AN OFFSET THAT GETS ADDRESS 
; RELATIVE TO BASE. 
7 ; INPUTS: 
8 3 RO = ADDRESS OF TWO WORD BLOCK CONTAINING 18 BIT ADDRESS 
9 ; OUTPUTS: 
+ ; NONE 
12 022452 KTBASE: PUSH RO 
022452 010046 MOV RO,-(SP) 
13 022454 112037 002222 MOVB (RO) +,KTBASO sFIRST BYTE IS OFFSET 
14 022460 112037 002220 MOVB (RO)+,KTBASA SECOND AND THIRD BYTES 
15 022464 112037 002221 MOVB (RO)+,KTBASA+1 : MAKE THE BASE ADDRESS 
16 022470 POP RO 
022470 012600 MOV (SP)+,RO 
17 022472 000207 RETURN 





eee 


SEQ 0119 
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GLOBAL SUBROUTINES SECTION 


5 eK TREAD 
3 ;READ ONE WORD FROM MEMORY USING KT HARDWARE. WORD IS SPECIFIED BY A BASE 
4 TADDRESS AND A BYTE OFFSET. THE BASE ADDRESS MUST BE PREVIOUSLY SPECIFIED 
Z ‘BY A KTBASE CALL. 
7 ; INPUTS: 
8 R1 = BYTE OFFSET INTO BUFFER 
S OUTPUTS: 
1 5 RO = DATA READ FROM MEMORY LOCATION 
12 022474 KTREAD: PUSH R1 
022474 010146 MOV R1,=-(SP) 
13 022476 063701 002222 ADD KTBASO,R1 ; COMPUTE TOTAL OFFSET 
14 022502 PUSH R1 
022502 010146 MOV R1,-(SP) 
15 022504 000301 SWAB R1 ;GET RID OF LOW BYTE 
16 022506 042701 177400 BIC #177400,R1 
17 022512 063701 002220 ADD KTBASA,R1 ;ADD BASE ADDRESS 
18 022516 006301 ASL R1 ; SHIFT TO POSITIN FOR PAR REGISTER 
19 022520 006301 ASL R1 
20 022522 010137 172354 MOV R1,PAR6 ;STORE IN PAK REGISTER 
21 022526 POP R1 
022526 012601 MOV (SP)+,R1 
22 022530 042701 177400 BIC #177400,R1 ae HIGH BYTE 
23 022534 012737 000001 177572 MOV #MM.EN,SRO ; TURN ON MEMORY MANAGEMENT 
24 022542 016100 140000 MOV 140000(R1),RO READ WORD 
25 022546 005037 177572 CLR SRO TURN OFF MEMORY MANAGEMENT 
26 022552 POP R1 
022552 012601 MOV (SP)+,R1 
27 022554 000207 RE TURN 
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CZUDCAO UDA AND DRIVE D1 
GLOBAL SUBROUTINES SECTION 
! :KTWRITE 
3 [WRITE TO ONE WORD OF MEMORY USING KT HARDWARE. WORD IS SPECIFIED 
4 “BY A BASE ADDRESS AND A BYTE OFFSET. THE BASE ADDRESS MUST BE 
> [PREVIOUSLY SPECIFIED BY A KTBASE CALL. 
? : INPUTS: 
8 Z RO = DATA TO BE WRITTEN 
9 : R1 = BYTE OFFSET INTO BUFFER 
10 ;OUTPUTS: 
1 7 
13 022556 KTWRITE:PUSH Rl 
022556 010146 MOV R1,=(SP) 
14 022560 063701 002222 ADD KTBASO,R1 sCOMPUTE TOTAL OFFSET 
15 022564 PUSH R1 
022564 010146 MOV R1,=(SP) 
16 022566 000301 SWAB R1 :GET RID OF LOW BYTE 
17 022570 042701 177400 BIC #177400,R1 
18 022574 063701 002220 ADD KTBASA,R1 ZADD BASE ADDRESS 
19 022600 006301 ASL R1 *SHIFT TO POSITION FOR PAR REGISTER 
20 022602 006301 ASL R1 
21 022604 010137 172354 MOV R1,PAR6 :STORE IN PAR REGISTER 
22 022610 POP R1 
022610 012601 MOV (SP)+,R1 
23 022612 042701 177400 BIC #177400,R1 :CLEAR HIGH BYTE 
24 022616 012737 000001 177572 MOV #MM.EN, SRO :TURN ON MEMORY MANAGEMENT 
25 022624 010061 140000 MOV RO, 140000(R1) [WRITE WORD 
26 022630 005037 177572 CLR SRO :TURN OFF MEMORY MANAGEMENT 
27 022634 POP R1 
2 012601 MOV (SP)+,R1 


022634 
28 022636 000207 RE TURN 
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GLOBAL SUBROUTINES SECTION 


} sNXM] 

3 SNON“EXISTANT MEMORY SERVICE ROUTINE 

5 + INPUTS: 

é : NXMAD SET TO ZERO 

? SOQUTPUTS: 

. 3 NXMAD SET TO ONES IF NON-EXISTANT TRAP OCCURED 

10 022640 BGNSRV NXMJ 

ee 022640 NXMI: : 
\2 022640 012737 177777 002366 MOV #=1,NXMAD 

14 022646 ENDSRV 


022646 10021: 
022646 000002 RTI 
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GLOBAL SUBROUTINES SECTION 


;UDASRV 


:UDA INTERRUPT SERVICE ROUTINE. MARKS UDA CONTROLLER TABLE THAT AN 
: INTERRUPT HAS BEEN RECEIVED. 


STHIS ROUTINE IS CALLED "we A [JSR RO,UDASRVJ INSTRUCTION FROM WITHIN 
TTHE CONTROLLER TABLE. THE PC STORED Ili RO IS THE ADDRESS OF THE C.FLG 
;WORD IN THE CONTROLLER TABLE. THE STACK CONTAINS THE SAVED CONTENTS 

2 OF RO FOLLOWED BY THE INTERRUPTED PC AND PS. 


INPUTS: 

: RO = ADDRESS OF C.FLG WORD IN CONTROLLER TABLE 

3 STACK = SAVED CONTENTS OF RO 

;OUTPUTS: 

M4 CT.CMD CLEARED AND CT.MSG SET IN C.FLG WORD OF CONTROLLER TABLE 
; RO = RESTORED FROM STACK 


022650 BGNSRV UDASRY 
022650 


: BIC #CT.CMD, (RO) ;CLEAR CT.CMD 
20 022650 052710 000010 BIS #CT.MSG, (RO) SET CT.MSG 
21 022654 POP RO RESTORE RO 
0226 012600 MOV (SP)+,R0 
22 022656 ENDSRV 
022656 
022656 000002 


ONAUSWN "OVO NOUE Wh 


— oes ot ns td od 2 


UDASRV: : 


vw 
* 


L10022: 
RTI 


poe en 


10 
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GLOBAL SUBROUTINES SECTION 





1 ;SETTO 
| e 
5 :SET TIMEOUT COUNTER TO SOME NUMBER OF SECONDS FROM CURRENT TIME. 
5 > INPUTS: 
6 ; RO = NUMBER OF SECONDS FOR TIMEOUT 
? : R1 = ADDRESS WHERE TwO WORD TI/IE TO BE PUT 
a sOUTPUTS: 
g : RO = CONTENTS DESTROYED 
10 : R1 = INCREMENTED BY 2 
\¢ s COMPUTE CLOCK TICKS TIL TIMEOUT 
14 022660 SETTO: PUSH <R2,R3> 
022660 010246 MOV R2,=(SP) 
022662 010346 MOV R3,-(SP) 
15 02 5002 CLR R2 CLEAR oo 
16 022 013703 002360 MOV KW.HZ,K3 *GET MULTIPLICAND 
17 02267. SETOO: ASR RO SHIFT MULTIPLIER TO RIGHT 
18 022674 103001 BCC SETO1 71F A ONE BIT SHIFTED OUT 
19 022676 060302 ADD R3,R2 + ADD MULTIPLICAND TO PRODUCT 
20 022 006303 SETO1: ASL R3 DOUBLE THE MULTIPLICAND 
21 022702 005700 TST RO 
4 022 001372 BNE SETOO CONTINUE UNTIL MULTIPLIER IS ZERO 
$3 7GET CURRENT TIME 
6 022 013700 002362 SETO2: MOV KW.EL,RO GET TIME 
27 O22712 013703 002364 MOV KW.EL+2,R3 
28 022716 002362 CMP RO,KW.EL zIF CHANGED DURING RETRIEVAL 
23 022722 001371 BNE SETO2 : GET IT AGAIN 
I zADD TIME TIL TIMEOUT 
33 022724 060200 ADD R2,RO ZADD 
4 022726 005503 ADC R3 


PUT RESULT IN STORAGE 


38 022730 010021 MOV RO,(R1)+ 
Z 022732 010311 MOV R3,(R1) 
41 022734 POP <R3,R2> 
022734 012603 MOV (SP)+,R3 
022736 012602 MOV (SP)+,R2 
42 022740 207 RE TURN 





po 
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| CZUDCAO UDA SEQ 0125 
| GLOBAL SUBROUTINES SECTION 

} UDAINT 

3 FUNCTIONAL DESCRIPTION: 

4 5 SUBROUTINE TO INITIALIZE A UDA AND BRING IT ON-LINE. 

5 3 ALL ey ARE CHECKED. AN ERROR MESSAGE IS REPORTED IF ANY ERROR 
$ 5 DETECTED 

8 ; INPUTS: 

9 ° a - ADDRESS OF CONTROLLER TABLE. 

10 ; - LEN, INTI AND VECTOR FIELDS TO SEND TO UDA 

11 :IMPLICIT INPUTS: 

12 2 FFREE - Ag Aw 3 Boy o MEMORY. THIS ADDRESS IS GIVEN TO UDA 
13 : S START OF RING BUFFER 

14 é FSIZE - Size OF FREE MEMORY AVAILABLE IN WORDS. 

15 ;OUTPUTS: 

16 ; CONDITION Z = SET IF ANY ERROR i on ay IF NO ERROR. 

17 : R1 = SIZE OF RING BUFFER IN WORDS IF NO ERR 

18 : R4 - ADDRESS OF UDAIP REGISTER IN UDA 
a : RS = UNCHANGED. 
4 ;CHECK IF ENOUGH FREE MEMORY FOR RING BUFFER 


2 
23 022742 010400 UDAINT: MOV . RO ;GET MESSAGE LENGTH 


Ss 
BIC #177770,R0 


000300 
25 022746 042700 177770 
004737 


26 022752 7 023654 CALL CLOG COMPUTE LOGARITHMIC VALUE 
27 022756 010102 MOV R1,R2 SAVE RESULT IN ne 
022760 0104 MOV R4,RO [GET COMMAND LENGTH 
29 022762 SWAB R 
30 022764 ROR RO 
31 022766 ROR RO 
32 022770 006 ROR 
33 022772 042700 177770 BIC #177770,R0 
022776 004737 023654 CALL CLOG ; COMPUTE Seg bg VALUE 
35 023002 060201 ADD R2,R1 TADD THE TWO RESULTS 
23004 006301 ASL R1 ;MULTIPLY BY 2 WORDS PER RING 
37 023006 062701 000002 ADD #HC.1SZ/2,R1 ;ADD SPACE FOR INTERRUPT INDICATORS 
38 023012 020137 002176 CMP R1,FSIZE [COMPARE WITH SIZE OF FREE MEMORY 
39 023016 101402 BLOS UDAI1 
40 023020 000137 012710 JMP FMERR ;FATAL ERROR IF NOT ENOUGH MEMORY 





——————————__-- 
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| GLOBAL SUBROUTINES SECTION 
! :FILL HOST COMMUNICATION AREA WITH ALL ONES 
3 023034 913702 002174 UDAI1: MOV FFREE,R2 :GET FIRST ADDRESS OF RING BUFFER 
4 023030 01010 V R1,R3 :GET SIZE OF RING BUFFER 
5 023032 012722 177777 UDAITL: MOV #1, (R2)+ [WRITE ONES TO BUFFER 
6 023036 005303 DEC R3 [COUNT THE WORDS IN BUFFER 
: 023040 003374 BGT UDAIIL SLOOP UNTIL ENTIRE BUFFER WRITTEN 
, :D0 THE INITIALIZATION 
11 023062 006737 023204 CALL UDAIST :DO FIRST THREE STEPS 
I 023046 103454 BCS UDAIEX [GET OUT IF UDA MICROCODE REPORTED FAILURE 
13 023050 012364 000002 MOV (R5)4,2(R4) SWRITE NEXT WORD TO UDASA REGISTER 
14 023054 012703 000310 MOV #200. .R3 “GET TRY COUNTER 
15 023060 016402 000002 UDAI1A: MOV 2(R4).R2 [LOOK AT UDASA 
16 023064 001410 BEQ UDAI1¢ 
17 023066 100005 BPL UDAI1B 
18 023070 ERRDF 7,INTHD, INTRS 
023070 104455 TRAP — CSERDF 
023072 000007 .WORD 7 
023074 003263 “WORD INTHD 
023076 012200 “WORD  INTRS 
19 023100 000437 BR UDAIEX 
20 023102 005303 UDAI1B: DEC R3 
21 023104 001365 BNE UDAI1A 
22 023106 010264 000002 UDAIIC: MOV R2,2(R4) :WRITE 0 TO UDASA (PURGE) 
23 028112 011402 MOV (R4),R2 SREAD FROM UDAIP (POLL) 
24 023114 006737 023514 CALL UDARSP ‘WAIT FOR STEP OR ERROR BIT 
“5 023120 103427 BCS UDAIEX :GET OUT IF UDA MICROCODE REPORTED FAILURE 
$3 : CHECK HOST COMMUNICATION AREA FOR ALL ZEROS 
29 023122 013702 002174 UDAI2: MOV FFREE,R2 :GET FIRST ADDRESS OF RING BUFFER 
30 023126 010103 MOV R1,R3 ‘GET SIZE OF RING BUFFE 
31 023130 722 UDAI2L: TST tro) =CHECK WORD IN BUFFER 
32 023132 001003 BNE UDAI2E :GO TO ERROR REPORTER IF NOT ZERO 
33 023134 005303 DEC R3 SCOUNT THE WORDS IN BUFFER 
34 023136 003374 BGT UDAI2L [LOOP UNTIL ALL WORDS CHECKED 
35 023140 000405 BR UDAI3 
37 023142 UDAI2E: ERRDF 15, INTHD, INTBF :REPORT BUFFER NOT CLEARED 
023142 104455 TRAP — CSERDF 
023144 000017 .WORD 15 
023146 003263 “WORD —INTHD 
023150 012244 “WORD INTBF 
023152 000612 BR UDAIEX 
;SEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 
UDAI3: MOV C.BST(RS),RO :GET BURST VALUE 
ASL RO ‘SHIFT TO POSITION 
ASL RO 
BIS #SA.GO,RO :SET THE GO BIT 
MOV RO,2(R4) *SEND TO UDA 


0 UD 
;CLEAR Z AS NO ERROR INDICATION 
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50 


51 
23 023200 000264 
53 023202 000207 
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ERROR RETURN 
UDAIEX: SEZ 
RE TURN 





;SET Z TO INDICATE ERROR OCCURRED 


SEQ 0127 
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GLOBAL SUBROUTINES SECTION 


} ;UDAIST 
3 START THE INITIALIZATION PROCESS ON THE SELECTED UDA. 
4 ;STOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
Z ATTEMPT ANY UNIBUS TRANSFERS. 
7 ; INPUTS: 
8 ; R5 = ADDRESS OF CONTROLLER TABLE 
m : R4 = LEN, INTI AND VECTOR FIELDS TO SEND TO UDA 
3 ;LOAD TABLE OF DATA TO SEND TO UDASA REGISTER 
13 023204 UDAIST: BREAK 
023204 104422 TRAP C$BRK 
14 023206 PUSH R1 
023206 010146 MOV R1,-(SP) 
15 023210 052704 100000 BIS #SA.STP,R4 ;SET STEP BIT IN DATA WORD 
16 023214 010437 023406 MOV R4,UDAID1 ;LOAD LENGTH AND INTERRUPT VECTOR 
17 023220 013737 002174 023412 MOV FFREE ,UDAID2 ;LOAD MEMORY ADDRESS 
023226 062737 000004 023412 ADD #HC.MSG,UDAID2 ; OF FIRST RESPONSE RING 
34 START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 
0232 016504 000000 “t} ee UADR(R5) ,R4 =GET ADDRESS OF gl REGISTER 
23 023240 005037 002366 * CLR NXMAD ;CLEAR MEMORY ERROR FLAG 
4 02324 SETVEC #4 ,ANXMI ,#PRIO7 7SET UP VECTOR 4 
023244 012746 0340 MOV #PRIO7,-(SP) 
023250 012746 022640 MOV ANXMI ,-(SP) 
023254 012746 0004 MOV #4 ,-(SP) 
23260 012746 3 MOV #3,-(SP) 
023264 104437 TRAP C$SVEC 
023266 062706 000010 ADD #10,SP 
25 023272 005764 000002 TST 2(R4) sACCESS UDASA REGISTER 
26 023276 005014 CLR (R4) ;WRITE TO UDAIP 
27 0233 CLRVEC #4 ' :GIVE UP THE VECTOR 
023 012700 000004 #4 ,RO 
023 104436 TRAP CS$CVEC 
023 005737 002366 TST ;SEE IF A MEMORY ERROR OCCURRED 
29 023312 001406 BEQ U 
30 023314 ERRDF cb 3, INTR4 
023314 104455 TRAP CSERDF 
023316 000025 -WORD 21 
023320 -WORD 0 
23322 012154 -WORD  INTR4 
31 023324 00026 SEC 
3 023326 000424 BR UDAISE 
4 SET UP LOOP PARAMETERS TO EXECUTE THE FOUR STEPS OF INITIALIZATION 
36 023330 012737 004000 023652 UDAISG: MOV #SA.S1,UDARSD STORE RESPONSE MASK 
2 023336 012703 023404 MOV #MUDAIDT,R3 sAND INDEX TO TABLE 
4 WAIT FOR AND CHECK RESPONSE DATA 
41 023342 004737 023514 UDAISL: CALL UDARSP :WAIT FOR STEP OR ERROR BITS 
42 023346 103414 BCS UDAISE EXIT IF ERROR 
43 023350 004733 CALL @(R3)+ CALL RESPONSE CHECKER FOR STEP 










44 023352 
45 023354 
46 023360 
47 023366 
48 023370 
4 023374 
51 023376 
52 023400 

023400 
53 023402 


10341 


012601 
000207 


023652 
040000 023652 


000002 


UDAISX: 
UDAISE: 


M 10 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 86-1 
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BCS UDAISE 
ASL UDARSD 
BIT #SA.S4,UDARSD 
BNE UDAISX 


I 
MOV (R3)+,2(R4) 
BR UDAISL 


CLC 
POP R1 


RETURN 


MOV (SP)+,R1 


IF SO 
[WRITE DATA TO UDASA REGISTER 
STAY IN LOOP 


CLEAR CARRY FOR NO ERROR INDICATION 


SEQ 0129 


GET OUT IF ERROR 
:SHIFT TO NEXT STEP aH 
SCHECK IF NOW AT STEP 
7GET OUT 
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Ractachactchaeae 
FEES EE 
SRRVOKK 


as ~edunae ae 
MOCO ONAOUESWN—ODONOUSWR— 


023506 
45 023510 
46 023512 


C 


023422 
000000 
023430 
023450 
100000 
023466 


012701 
000422 


013701 


013701 
042701 
052701 
000403 


010201 


042701 


020102 
001405 


DI 
TI 
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ON 


004400 


023406 


177400 
010000 


023406 
177400 
020000 


137400 





:DATA TO BE SENT AND RECEIVED BY UDA INITIALIZATION 


UDAIDT: .WORD UDAIR1 zFIRST WORD RESPONSE CHECK _ 
UDAID1: . 0 FIRST WORD TO SEND TO UDAS 

«WORD UDAIR2 SECOND WORD RESPONSE CHECK ROUT INE 
UDAID2: .WORD 0 SECOND WORD TO SEND TO 

«WORD UDAIR3 THIRD WORD RESPONSE CHECK ROUTINE 
UDAID3: .WORD SA.TST : THIRD WORD TO SEND UDAS 

-WORD UDAIR4 FOURTH WORD RESPONSE CHECK ROUTINE 


sRESPONSE CHECK FOR FIRST WORD FROM UDASA 
CHECK FOR PROPER CONTROLLER TYPE 


UDAIR1: MOV #SA.S1+SA.DI,R1 SET STEP ONE BIT 
BR UDAIRC : COMPARE 

sRESPONSE CHECK FOR SECOND WORD FROM UDASA 

CHECK FOR ECHO OF INTI AND VECTOR 


UDAIR2: MOV UDAID1,R1 GET WORD SENT TO UDASA 
SWAB R1 :GET HIGH 8 BITS 
BIC #177400,R1 


BIS #SA.S2,R1 SET STEP 2 BIT 
BR UDAIRC sNOW COMPARE 


RESPONSE CHECK FOR THIRD WORD FROM UDASA 
sCRHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 


UDAIR3: we ap, ty GET WORD SENT TO UDASA 


177400,R1 :JUST LOW 8 BITS 
BIS #SA.S3,R1 SET STEP 3 BIT 
BR UDAIRC SNOW COMPARE 


RESPONSE CHECK FOR FOURTH WORD FROM UDASA 
:CHECK FOR ECHO OF PURGE AND LFAIL BITS 


UDAIR4: MOV R2,R1 GET RESPONSE FROM UDA 
BIC #*C<SA.S4+SA.MCV>,R1 KEEP MICROCODE VERSION AND STEP 4 


: COMPARE EXPECTED DATA IN R1 WITH ACTUAL DATA IN R2 
UDAIRC: CMP R1,R2 : COMPARE THE DATA 


BEQ UDAIRX EXIT IF COMPARED CORRECTLY 
ERRDF 6, INTHD, INTR3 sREPQRT ERROR 
TRAP per 


«WORD 
«WORD = INTHD 
-WORD = INTR3 
SEC 
UDAIRX: RETURN 


SEQ 0130 
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rn ee eee eS So 
N3s CONAUSWN—OVDONANSWN 


023620 
37 023622 





010146 





D 
T 





B11 
AGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 88 SEQ 0131 


ON 


100000 
000012 


000040 
022660 
023652 
002352 
002364 


002362 
000002 


023652 


600002 


000042 


000040 


;UDARSP ~ 


;WAIT FOR UDA TO RESPOND WITH DATA _IN UDASA REGISTER. 
EITHER STEP BIT SiteA MASK IN LOCATION UDARSD OR ERROR BIT 
:WILL CAUSE _A_ TERMINATION. 

AN ERROR MESSAGE WILL BE the IF THE UDA DOES NOT RESPOND 
IN 10 SECONDS OR IF ERROR SETS 


INPUTS: 

3 UDASRD = MASK OF. STEP BIT TO LOOK FOR 

5 RS = ADDRESS OF CONTROLLER TABLE 

: R4 = ADDRESS OF UDAIP REGISTER 

;OUTPUTS: 

: ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 
: R2 - DATA FROM UDASA REGISTER 

; CARRY SET IF ERROR BIT SETS OR TIME OUT 


UDARSP: PUSH R1 


V R1,-(SP) 
BIS #SA.ERR,UDARSD ;SET ERROR BIT IN MASK WORD 
MOV #10.,R0 SET UP_FOR 10 SECOND TIMEOUT 
MOV R5,R1 :POINT TO COUNTER IN CONTROLLER TABLE 
ADD #C.TO,R1 


CALL SETTO 
POP R1 


MOV (SP)+,R1 


UDARS1: BIT UDARSD,2(R4) ;LOOK AT ERROR AND STEP BIT 


BNE UDARS2 BRANCH IF EITHER SET 

BREAK 
TRAP C$BRK 

TST KW.CSR SEE IF CLOCK ON SYSTEM 

BEQ UDARS1 

a a atte CHECK IF TIME OUT OCCURRED 

BNE UDARS1 

CMP KW.EL,C.TO(RS5) 

BLO UDARS1 

1$: MOV 2(R4),R2 ;GET REGISTER CONTENTS 

ERRDF 4, INTHD,INTR1 REPORT TIME OUT ERROR 
TRAP CSERDF 
-WORD 4 
-WORD INTHD 
«WORD ~=—INTR1 


BR UDARSE 











GLOBAL SUBROUTINES SECTION 


1 

2 

3 023624 016402 000002 
4 02 100006 


3630 

5 023632 
023632 104455 
023634 5 
023636 003243 
23640 012022 
6 023642 000261 


7 023644 000207 


023646 000241 
023650 000207 


ek ed td Lg = ed 
AUSWrH-O OC 


023652 000000 
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;CHECK IF ERROR BIT SET 
UDARS2: MOV 2(R4) ,R2 
BPL_UDARSX 
ERRDF 5, INTHD,INTR2 


UDARSE: SEC 
RETURN 


NORMAL EXIT 


UDARSX: CLC 
RET'IRN 


;LOCATION FOR STEP BIT MASK 
UDARSD: .WORD 0 


GET REGISTER CONTENTS 
EXIT IF ERROR NOT SET 
REPORT ERROR INFO 


TRAP CSERDF 
«WORD 5 
«WORD INTHD 
«WORD  INTR2 


;CLEAR CARRY AS NO ERROR INDICATION 


;LOAD BY CALLING ROUTINE 


SEQ 0132 


4 
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GLOBAL SUBROUTINES SECTION 


1 ;CLOG 

2 s 

? ;COMPUTE LOGARITHMIC VALUE OF NUMBER TO BASE 2. 

5 : INPUTS: 

6 3 RO = LOGARITHM TO BE CONVERTED 

7 ;OUTPUTS: 

: : R1 = VALUE OF 2 RAISED TO POWER OF INPUT NUMBER 

10 023654 CLOG: PUSH RO 
023654 010046 ; MOV RO,-(SP) 

11 023656 005001 CLR R1 ;SET UP ZERO START VALUE 

12 023660 000261 SEC ;WITH CARRY READY TO SHIFT IN 

13 023662 006101 CLOGLP: ROL R1 sSHIFT TO LEFT 

14 023664 005300 DEC RO ; UNTIL RO 

15 02 100375 BPL CLOGLP : GOES NEGATIVE 

16 023670 POP RO 
023670 012600 MOV (SP)+,RO 

17 023672 000207 RETURN 
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SEC 


> sRDDLL 

3 [READ DISK DRIVE DOWNLINE LOAD PROGRAM INTO MEMORY 

5 ; INPUT TS: 

. DLLNAM = NAME OF PROGRAM IN RADSO (TWO WORDS) 

? SQUTPUTS: 

» : FREE MEMORY CONTAINING PROGRAM 

- ; CARRY CLEAR IF NO ERROR, CARRY SET IF PROGRAM NOT FOUND 

11 023674 012701 000005 RDDLL: MOV #5,R1 : TYPE OF PROGRAM IN DATA FILE 
12 023700 004737 023734 CALL RDREC [READ PROGRAM INTO MEMORY 

13 023704 006101 ROL Ri “PRESERVE CARRY STATE IN R1 
14 023706 004737 023716 CALL CLOSEF : WHILE CLOSING THE DATA FILE 
13 0 006001 ROR Ri : AS NORMAL POSITION IS LOST 
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GLOBAL SUBROUTINES ; TI 


E 
ECTION 


i :CLOSEF 
3 [CLOSE DATA FILE FOR DM PROGRAMS 
© : INPUTS: 
‘ : FILOPN = 7ERO IF FILE NOT OPEN 
7 ;OUTPUTS: 
5 ) “mye, 
0 023716 005737 002256 CLOSEF: TST FILOPN 7SEE IF FILE CURRENTLY OPEN 
1 023722 001403 BEQ 1$ 
2 023724 CLOSE : IF SO, CLOSE IT 
104435 TRAP — C$CLOS 
3 005037 002256 CLR FILOPN :AND MARK AS SO 
4 600207 1$: RETURN 
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GLOBAL SUBROUTINES SECTION 


SEQ 0136 


1 sRDREC 
2 3 
? +READ A RECORD FROM THE INPUT FILE. PLACE DATA INTO FREE MEMORY. 
5 + JMPUT S: 
6 : R1 = FILE TYPE 
7 : 1 = TEST 1 DM PROGRAM 
8 $ 2 - TEST 2 DM PROGRAM 
9 5 3 = TEST 3 DM PROGRAM 
10 - 4 - TEST 4 DM PROGRAM 
11 ; 5 = DRIVE DIAGNOSTIC DOWNLINE LOAD PROGRAM 
12 3 DLLNAM = IF R1 CONTAINS 5, jaw _— AT THIS ADDRESS CONTAIN 
13 ; E OF PROGRAM IN RA 
14 sOUTPUTS: 
15 5 DATA FROM RECORD IN MEMORY 
i$ 5 CARRY CLEAR IF NO ERROR, CARRY SET IF ERROR 
18 023734 RDREC: PUSH <RO,R1,R2,R3,R4,R5> 
023734 1 MOV RO,-(SP) 
023736 010146 MOV R1,-(SP) 
023740 010246 MOV R2,-(SP) 
023742 010346 MOV R3,-(SP) 
023744 010446 MOV R4,-(SP) 
023746 010546 MOV RS,-(SP) 
19 023750 005737 002256 TST FILOPN sSEE IF FILE ALREADY OPEN 
20 023754 001006 BNE RDST 
21 023756 OPEN #FNAME zIF NOT, OPEN FILE NOW 
023756 012700 002240 MOV #F NAME ,RO 
023762 104434 TRAP CSOPEN 
22 023764 0905237 002256 INC FILOPN zAND MARK AS OPEN 
23 023770 005005 CLR R5 ;CLEAR LOAD ADDRESS (SEARCH MODE) 
24 023772 RDST: BREAK ;ALLOW PROGRAM TO BE INTERRUPTED 
023772 104422 TRAP C$BRK 
25 , tele Ls DON'T SEEM TO BREAK ON CONTROL-C! 
26 0237746 GETBYTE R4 ;GET A BYTE 
023774 104426 TRAP C$GETB 
023776 110004 MOVB RO,R4 
27 024000 005704 TST R4 zIF ZERO 
28 024002 001773 BEQ RDST ; KEEP READING 
29 024 022704 000001 CMP #1,R4 ;WHEN NOT ZERO 
30 024010 001153 BNE RWRDE1 : IT BETTER BE A ONE 
31 024012 GETBYTE RO ; AND THE NEXT BYTE 
024012 104426 TRAP C$GETB 
32 024014 ADD RO,R4 
33 024016 005700 TST RO ; IF ZERO, PROCESS DATA 
34 024020 001432 BEQ RDDAT 
35 024022 020001 CMP RO,R1 ;CHECK IF TYPE = FILE LOOKING FOR 
24024 103430 BLO RDDAT :1F TOO SOON IN FILE, KEEP SEARCHING 
37 024026 101132 BHI RDERR zIF PAST TYPE, GIVE ER ROR RETURN 
240 737 024272 F GET NEXT TWO WORDS 
39 024034 013702 902254 MOV FDATA,R2 
40 024040 737 024272 CALL FWORD 
41 024044 GETBYTE RO ;GET CHECKSUM 
24044 104426 TRAP C$GETB 
42 024046 060004 or wt RS zADD TO COMPUTED SUM 
43 024050 105704 STB R sSEE IF THIS SUM IS ZERO 
44 024052 001137 BNE aunoes ; IF NOT, REPORT CHECKSUM FRROR 
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SEQ 0137 


| 
45 024054 020127 000005 CMP R1,45 IF FILE TYPE IS A 5 
46 024060 001007 BNE 1$ 
| 47 024062 023702 002430 CMP DLLNAM,R2 ; MATCH THE PROGRAM NAME 
024 1341 BNE RDST ;KEEP SEARCHING IF NOT DESIRED PROGRAM 
49 024070 023737 002432 002254 CMP DLLNAM+2,FDATA 
50 024076 001335 BNE RDST 
51 024100 013705 002174 1$: MOV FFREE,RS ;GET STORAGE ADDRESS 
52 024104 732 BR RDST ;SWITCH FROM SEARCH TO STORE MODE 
54 024106 737 024272 RDDAT: CALL FWORD ;READ BYTE COUNT 
55 024112 013703 002254 MOV FDATA,R3 ;SAVE IN R3 
56 024116 737 024272 CALL FWORD READ LOAD ADDRESS 
57 024122 162703 SUB #6,R3 : SUBTRACT BYTES ALREADY ary FROM BYTE COUNT 
58 024126 001443 BEQ RWORDT IF RESULT IS ZERO. THIS IS A 
59 ; TRANSFER BLOC 
60 024130 005705 TST R5 ;IF IN SEARCH MODE , 
61 024132 001425 BEQ 3$ : BYPASS TRANSFER ADDRESS COMPUTATION 
62 024134 013701 002254 MOV FDATA,R1 :GET LOAD 4DDRESS 
63 024140 30 ADD R3,R1 ADD BYTES IN RECORD 
64 024142 162701 001000 SUB #ADMFRST,R1 
65 024146 060501 ADD R5,R1 ;COMPUTE STORAGE ADDRESS 
66 024150 032701 000001 BIT #1,R1 :CHECK IF ODD BYTE ADDRESS 
67 024154 001401 BEQ 1$ LIF S 
68 024156 005201 INC R1 > _INCREME 
69 024160 163701 002174 1$: SUB FFREE,R1 2385 if MORE MEMORY NEEDS TO BE ALLOCATED 
70 024164 101403 BLOS 2$ 
71 024166 006001 ROR R1 ;REDUCE TO WORDS 
72 024170 0047357 012722 CALL ALOCM zALLOCATE THE MEMORY 
73 024174 013702 002254 28: MOV FDATA,R2 GET LOAD ADDRESS 
74 024200 162702 001000 SUB #DMFRST.R2 
75 024204 502 ADD R5,R2 
76 024206 3$: GETBYTE RO ;GET DATA BYTE 
024206 104426 TRAP —-C$GETB 
77 024210 005705 TST RS IF IN SEARCH MODE, 
78 024212 001401 4$ ; BYPASS DATA STORAGE 
79 024214 110022 MOVB RO, (R2)+ [STORE IN MEMORY 
80 024216 4$: ADD RO, ;UPDATE CHECKSUM 
81 024220 005303 DEC R3 ;COUNT THE BYTE 
82 024222 001371 BNE 3$ ;GET THEM ALL 
83 024224 GETBYTE RO GET CHECKSUM 
024224 104426 TRAP C$GETB 
84 024226 ADD RO,R4 ADD 
85 0242 105704 TSTB R4 IF CHECKSUM CORREC 
86 024232 001657 BEQ RDST : THEN GO READ NEXT “RECORD 
4 024234 46 BR RWRDES ; ELSE REPORT ERROR 
89 024236 RWORDT: GETBYTE RO ;READ CHECKSUM BYTE 
024236 104426 C$GETB 
90 024240 ADD RO,R4 ;ADD TO COMPUTED CHECKSUM 
91 024242 105704 TSTB RG =CHECK LOW BYTE OF SUM 
92 024244 1042 BNE RWRDE3 ;BRANCH IF CHECKSUM ERROR 
93 024246 005705 TST RS ZIF-IN SEARCH MODE, 
024250 001650 BEQ R : KEEP ON SEARCHING 
5 024252 POP <RS_R4,R3,R2,R1 ROD 
024252 012605 MoV (SP)+,R5 
024254 012604 MOV (SP)+.R4 
024256 012603 MOV (SP)+-R3 
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024260 012602 MOV (SP)+,R2 
024262 012601 _ MOV (SP)+-R1 
024264 012600 MOV (SP)+-RO 
% 024266 000241 cLe 
97 024270 000207 RE TURN 
99 024272 FWORD: GETBYTE RO ;READ A BYTE FROM FILE 
024272 104426 TRAP —- C$GETB 
100 024274 060004 ADD RO,RS : UPDATE CHECKSUM ERROR 
101 024276 110037 002254 MOVB RO,FDATA START TO BUILD WORD 
102 024302 GETBYTE RO ;READ ANOTHER BYTE FROM FILE 
024302 104426 TRAP — C$GETB 
103 024304 060004 ADD RO,R4 UPDATE CHECKSUM 
104 024306 110037 002255 MOVB RO,FDATA+1 ; COMPLETE WORD 
105 024312 000207 RETURN 
107 026314 004737 023716 RDERR: CALL CLOSEF CLOSE FILE AS POSITION IS LOST 
108 024320 POP <R5,R4,R3,R2,R1,RO> 
024320 012605 mov (SP)+,R5 
024322 012604 MOV (SP)+,R4 
024324 012603 MOV (SP)+,R3 
024326 012602 MOV (SP)+.R2 
024330 012601 MOV (SP)+,R1 
024332 012600 MOV (SP)+,RO 
109 024334 000261 SEC sERROR RETURN, FILE NOT FOUND 


110 024336 000207 RETURN 
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RWRDE1: ERRSF 30001,.RWRDEM,RWRDM1 


DOCLN 
RWRDEZ: ERRSF 30003,.RWRDEM,RWRDM3 


START FRAME NOT FOUND 


; CHECKSUM ERROR 


«WORD 30001 
«WORD RWRDEM 
D RWRDM1 


«WORD 30003 
«WORD RWRDEM 
«WORD RWRDM3 


SEQ 0139 
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skWw11l 
“CLOCK INTERRUPT SERVICE ROUTINE 
BGNSRV KW11] 


062737 000001 002362 ADD #1,KW.EL 
005537 002364 ADC KW.EL+2 
012777 000103 155746 MOV #KWOUT.,@KwW.CSR 


ENDSRV 
000002 


KWI1TI:: 
; COUNT THE INTERRUPT 
ZRESTART THE CLOCK 
L10023: 
RTI 


SEQ 0140 
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1 sete BGNSRV_INTSRV ; UDA INTERRUPT int eaves 
2 024406 005237 002236 INC INTRCV ; FLAG INTERRUPT AS RECEIVED 
3 aseeis ENDSRV 


2 L10024: 
024412 000002 RTI 





SEQ 0161 








tty UDA AND DRIVE 


OBAL SUBROUT 


OWDWNAWE WR 


10 024414 
024414 


24434 


INES SECT 


104422 


104433 
005737 
001403 
012777 
000207 
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10N 


002352 
000103 


155716 


sRESET 
RESET ALL UNIBUS DEVICES THEN RESTART THE CLOCK IF IT IS PRESENT 


: INPUTS: 

: KW.CSR = ADDRESS OF CLOCK REGISTER. ZERO IF NO CLOCK PRESENT. 
KWOUT. = DATA TO SEND TO CLOCK REGISTER TO RESTART IT. 

ZOUTPUTS: 


RESET: BREAK 
TRAP 
BRESET sRESET ALL DEVICES rae 
TST KW.CSR SEE IF A CLOCK IS PRESENT 


BEQ RESETX 
MOV #KWOUT. ,@KW.CSR START UP THE CLOCK 
RESETX: RETURN 


SEQ 0142 


C$BRK 
C$RESET 


7h 


ra gg ETT 


NM—ODONAUSWN— 
oO 


0 
24 024544 


0. 
25 meee 


27 
28 024602 
29 





ies ot DI 
NES SECTI 


012746 
012746 
010600 
104414 
062706 


012605 
012 
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ON 


020070 
020070 


006300 
000004 
000012 
005321 
000001 


000004 


;RNTIME 





*PRINT RUNTIME 


: INPUTS: 


; OUTPUTS: 


RNTIME: PUSH <RO,R1,R2,R3,R4,R5> 
MOV -(SP) 


RNTIMX: 


KW.EL = CONTAINS ELAPSED TIME 


KW.HZ = HERTZ OF CLOCK 


THE FOLLOWING IS PRINTED IN BASIC OUTPUT: 
“RUNTIME HH:MM:SS'' AND LINE IS ENDED 


MOV R5,-(SP) 
TST KW.CSR 


MOV KW. EL te, R4 
MOV KW.HZ,RO 
ne DIVIDE 


oR 
CALL DIVIDE 
MOV R5,R1 


V 
CALL DIVIDE 
PRINTB #ERRMRT,R3,R5,R1 


PRINTB #ERRNL 


POP <R5,R4,R3,R2,R1,RO> 
MOV (SP)+,R5 


V (SPY+#2RO 


+ CHECK IF A CLOCK PRESENT 
CH IF NOT 
GET ELAPSED TIME 
:GET SPEED OF CLOCK 


é NUTES 
;SAVE REMAINDER eh Ta SECONDS 


aime BY 60 A 
MINUTES IN omg 


END THE LINE 


sHOURS IN R3 





SEQ 0143 


#12,SP 


MERRNL ,~(SP) 
#1,-(SP) 


SP,RO 
CSPNT 
#4 ,SP 
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1 
2 


37 
38 024602 


0 0 
72 024754 
73 024762 
74 024764 
024764 
024770 


01 : 
010546 


013746 


012746 
012746 
010600 
104416 
062706 
023727 
001160 


012746 
012746 


025444 
000004 


000012 
005321 
000001 


000004 
002226 


025500 
000001 


000004 


‘tite MISCELLANEOUS SECT 
. SBTT SECT 


soe 


IONS 
REPORT CODING ION 


BGNMOD 


(4) 


: THE REPORT CODING SECTION CONTAINS TIlE 
. ‘PRINTS’* CALLS THAT GENERATE STATISTICAL REPORTS. 


‘—_ 
’ 


KPTEX: 


BGNRPT 


PUSH <RO,R1,R2,R3,R4,R5> 
MOV (SP) 


MOV 
PRINTS #RPTMSG, TNUM 


TST KW.CSR 


MOV Kw. EL+2,R4 

MOV KW.HZ,RO 

CALL DIVIDE 

MOV #60. ,RO0 

CALL DIVIDE 

MOV R5,R1 

CALL DIVIDE 

PRINTS #RPTMS2,R3,R5,R1 


PRINTS #ERRNL 


CMP TNUM,A4 
BNE RPTXX 
PRINTS #RPTMSH 


LS$RPT:: 


PRINT TEST NUMBER 


;CHECK IF A CLOCK IS PRESENT 
BRANCH IF NOT 
:GET ELAPSED TIME 


GET SPEED OF CLOCK 


eg did SECONDS © 
Y 60 


E MINUTES 
‘SAVE REMAINDER a, im SECONDS 
:DIVIDE BY 60 A 
:MINUTES IN RS. SOURS IN R3 


sEND THE LINE 


iF NOT TEST 4 
THAT IS ALL 


F ELAPSED TIME 


SEQ 0144 


R1,-(SP) 
R5,~-(SP) 


#12,SP 


#ERRNL ,~ (SP) 
#1,-(SP) 

S * 0 
CSPNTS 

#4 ,SP 


#RPTMSH,~(SP) 
#1,-(SP) 
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REPORT CODING SECTION 





024774 
024776 


025 
107 025210 
025210 


010600 
104416 
062706 


012746 
012746 
0600 


012601 
016146 


000004 
025615 
000001 


000004 
002204 
000002 


000020 
000001 


000002 


000164 


RPTCT: 


RPTDT: 


1$: 


2$: 


PRINTS #RPTMH2 


MOV CTABS,R5 
TST C.UNIT(RS) 
BMI RPTCTN 


ASSUME CT.AVL £Q BIT15 


E 
TST D.UNIT(R1) 


BMI RPTDTN 
ASSUME DT.AVL EQ BIT15 
PRINTS #RPTMSD,D.UNIT(R1),(R1) 


PUSH <R1 Fad R4,R5> 


MOV 
MOV D.SERN(R1) ,R2 
MOV D.SERN+2(R1) ,R3 
MOV D.SERN+4(R1).R4 


CLR (RO) 


BNE 

POP <R5,R4, a! R1> 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 


MOV (SP)+,R1 
PRINTS #RPTMD1,#TEMP,D.SEEK(R1) .D.XFRR(R1) .D.XFRW(R1) 


[SEE IF DRIVE AVAILABLE 


;GET SERIAL NUMBER 


THEN A NULL CHARACTER 
;DIVIDE BY 10 

; CONVERT TO ASCII CHARACTER 
;PUT DIGIT INTO TEMP STORAGE 
;SEE IF QUOTIENT IS ZERO 


:1F NOT, DIVIDE AGAIN 


AD #4, SP 
GET ADDRESS OF FIRST CONTROLLER TABLE 
SEE IF CONTROLLER AVAILABLE FOR TESTING 


; COMPUTE ADDRESS OF DRIVE TABLE POINTERS 
:GET ee OF DRIVES 
T POINT 


SEQ 0145 

MOV SP ,RO 
TRAP CSPNTS 
ADD #4 ,SP 
MOV ro fans -(SP) 
MOV #1,-(SP) 
MOV -RO 
TRAP 

D 
MOV (R1) ,-(SP) 
MOV D.UNIT(R1) ,-(SP) 
MOV rs floret - (SP) 
MOV #3,-(SP) 
MOV SP,RO 
TRAP CSPNTS 
ADD #10,SP 


PLACE 18 SPACE CHARACTERS INTO 
; TEMP STORAGE 


MOV 


D.XFRW(R1) .-(SP) 
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025214 016146 000166 MOV —s—D..XFRR(R1),=(SP) 
025220 016146 000174 MOV —-.. SEEK(R1),=(SP) 
025224 012746 002260 MOV ss #TEMP,, = (SPS 

30 012746 025742 MOV —- #RPTMD1, = (SP) 

25234 012746 5 MOV = #5, =( SPS 
025240 0 | MOV Pp. 

025242 104416 TRAP —-CSPNTS 
025244 062706 000014 ADD =: #14, SP 
108 025250 PRINTS #RPTMD2,D.HERR(R1) ,D.SERR(R1) ,D.ECCC(R1) 

25250 016146 000176 MOV — OD. ECCC(R1),=(SP) 
025254 016146 000172 MOV —«OD. SERR(R1).=(SP) 
025260 016146 000170 MOV —OD. HERR(R1) ,~(SP) 

25264 012746 025772 MOV - #RPTMD2, = (SP) 

025270 012746 000004 MOV «#4, =( SPS 
025274 010600 ; MOV. —- SPO 
025276 104416 TRAP —-C$PNTS | 
025300 062706 000012 ADD = #12, SP 
109 025304 ASSUME D.DRV EQ 0 
110 025304 ASSUME C.UADR EQ 0 
111 025304 005203 RPTDTN: INC R3 ;COUNT THE DRIVE TABLES 
112 025306 020327 000010 CMP R3_48. | 
113 025312 002656 BLT RPTDT ;REPEAT FOR ALL _DRIVE TABLES | 
114 025314 062705 000046 RPTCTN: ADD #C.SIZE,R5 GO TO NEXT CONTROLLER TABLE 
115 025320 005715 TST (R5) 
116 025322 001242 BNE RPTCT 
117 025324 RPTXX: POP <R5,R4-R3_R2,R1 ,RO> | 
025324 012605 mov (SP)+,R5 
025326 012604 MOV (SP)+.R4 
025330 012603 MOV (SP)+.R3 
025332 012602 MOV (SP)+,R2 
025334 012601 MOV (SP)+,R1 
025336 012600 MOV (SP)+.RO 
118 025340 EXIT — RPT | 
025340 000167 -WORD JS JMP | 
rig 2232 000450 “WORD L10025-2-. | 
| 
120 025344 DIY10: PUSH R1 ;DIVIDEND IS IN <R2,R3,R4> | 
025344 010146 MOV R1,-(SP) 
121 025346 012701 000060 MOV #48.,R1 ;SET UP SHIFT COUNT 
122 025352 005005 CLR RS START WITH ZERO REMAINDER 
123 025354 006302 1$: ASL R2 SHIFT LEFT INTO R5 
124 025356 006103 ROL R3 
125 025360 006104 ROL R& 
126 025362 006105 ROL RS 
127 025364 022705 000012 CMP #10. .R5 ;SILL DIVISOR GO_INTO REMAINDER? 
128 025370 10100 BHI LY SUBTRACT IF IT WILL 
129 025372 162705 000012 SUB #10. .R5 : SUBTRACT DIVISOR | 
130 025376 005202 INC R2 :PUT A ONE INTO QUOTIENT 
131 025400 005301 2$: DEC RI COUNT THE SHIFTS 
132 025402 BNE 1$ 
133 025404 POP R1 ;RETURN WITH QUOTIENT IN 
025404 012601 MOV (SP)+,R1 
134 025406 000207 RETURN ;  <R2,R3,R4> AND REMAINDER IN RS 
147 025410 045 116 045 RPTMSG: .ASCIZ\ZNZATEST %D1%A_IN PROGRESS. \ 
148 025444 0465 101 040 RPTMS2: ZASCIZ\%A RUNTIME %D3%A: %22%A:272\ 
149 025500 045 116 045 RPTMSH: :ASCIZ\%NXAUNIT DRIVE SERIAL~NUMBER SEEKS MBYTES MBYTES HARD SOFT  ECC%N 
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ON 

04 0 040 RPTMH2: .ASCIZ \2A 

04 e 062 RPTMSD: .ASCIZ\%S2%D2%S3%03%S1\ 

04 2 045 RPTMD1: .ASCIZ\ZT2ZS1ZD52S2R%D52%S32D5%S2\ 
04 04 065 RPTMD2: Smt gctsatincnta aati t 


ENDRPT 
26014 
026014 104425 


.- 


SEQ 0147 


X1000 READ WRITTEN ERRORS ERRORSZN\ 


110025: 


TRAP 


CSRPT 





F 12 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL-81 15:14:57 PAGE 100 SEQ 0148 
PROTECTION TABLE 


-SBTTL PROTECTION TABLE 


pet 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 


° 


UEWN—O”O DNAUNFWwr— 


026016 BGNPROT 
026016 LSPROT:: 
10 026016 177777 #1 OFFSET INTO P=TABLE FOR CSR ADDRESS 
11 026020 177777 oad OFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
: 026022 177777 -1 OFFSET INTO P=TABLE FOR DRIVE NUMBER 
: 026024 ENDPROT 
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INITIALIZE SECTION 
} -SBTTL INITIALIZE SECTION 
3 p++ 
4 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
2 ; AT THE BEGINNING OF EACH PASS. 
7 ° 
8 026024 BGNINIT 
. 026024 LSINIT:: 
33 000000 REPT 0 
* IF a ~ * pape CONTINUE COMMAND 


36 SET ICONT BIT IN IFLAGS 

37 ENDIF 

3 IF oy + ae RESTART COMMAND 

40 SET IREST BIT IN IFLAGS 

a) END 

42 IF HERE FROM POWER FAIL RESTART 

43 THEN 

44 RESET ALL_UNITS 

45 INITIALIZE MEMORY MANAGEMENT REGISTERS 
46 PRINT STATISTICAL REPORT 

47 DELAY ONE MINUTE 

48 ENDIF 

49 IF HERE FROM START COMMAND 

50 THEN 

51 RFSET ALL UNITS 

52 
53 
54 
55 
56 
57 
58 
59 


INITIALIZE MEMORY MANAGEMENT REGISTERS 
Steg eee MEMORY 


CLEAR T 
SET ISTRT i - IFLAGS, CLEAR OTHER BITS 
INITIALIZE C 
i TABLES 
CHECK TABLES FOR ADDED OR DROPPED UNITS 
60 . ENDF 
oS -ENDR 
63 026024 READEF #EF .CONTINUE sHERE FROM CONTINUE COMMAND? 
026024 012700 000036 MOV #EF CONTINUE ,RO 
026030 104447 TRAP CSREFG 
64 026032 BNCOMPLETE INIT1 ; JUMP IF NOT 
026032 103003 BCC INIT1 
65 026034 052737 000002 002224 BIS #ICONT,IFLAGS :SET CONTINUE BIT IN FLAG RECORD 
66 026042 INIT1: READEF MEF RESTART :LOOK AT EVENT FLAGS 
026042 012700 000037 MOV #EF .RESTART ,RO 
026046 104447 TRAP CSREFG 
67 026050 BNCOMPLETE INIT1A SET IREST BIT IN IFLAGS 
026050 103003 BCC INITIA 
68 026052 052737 000004 002224 BIS 4 gy eiaee ; _IF HERE FROM RESTART COMMAND 
69 026060 INIT1IA: READEF #EF ;HERE FROM POWER RESTART? 
026060 012700 000034 MOV MEF .PWR,RO 
026064 104447 TRAP CSREFG 
70 026066 BNCOMPLETE INIT2 ;JUMP IF SET 
026066 103052 BCC INITe 
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CZ 
INITIALIZE SECTION 





71 026070 004737 024414 CALL RESET RESET ALL_UNITS 
72 026074 004737 022240 CALL_INITKT ; INITIALIZE MEMORY MANAGEMENT REGISTERS 
026100 DORPT PRINT A STATISTICAL REPORT 
026100 104424 TRAP CSDRPT 
4 026102 005737 002352 TST KW.CSR : CHECK IF Soe ON yt ya 
75 026106 001421 BEQ POWDLY IF NOT, USE A LOOP D 
76 026110 0127 000074 MOV #60. ,RO 7SET UP A TIME OUT OF “80. SECONDS 
77 026114 012701 002372 MOV #STIME ,R1 
78 026120 004737 022660 CALL SETTO 
79 026124 POWDLC: BREAK 
026124 104422 C$BRK 
80 026126 023737 002374 002364 CMP STIME+2,KW.EL+2 CHECK IF TIME ELAPSED 
81 026134 101027 BHI INIT2 
82 026136 1372 BNE POWDLC 
83 026140 023737 002372 002362 CMP STIME,KW.EL 
84 026146 103766 BLO POWDLC 
85 026150 000421 NIT2 
86 026152 012701 002400 POWDLY: MOV #2400,R1 :DELAY ONE MINUTE FOR DISK 
87 026156 POWDLL: DELAY 250. ; UNITS TO POWER UP 
026156 012727 000372 MOV #250. ,(PC)+ 
026162 000000 -WORD 0 
26164 013727 002116 MOV LSDLY,(PC)*+ 
026170 -WORD 0 
026172 005367 177772 DEC -6(PC) 
026176 001375 74 
026200 005367 177756 DEC -22(PC) 
026204 001367 BNE -720 
88 026206 BREAK ; WHILE RESPONDING TO “C 
026206 10442 TRAP C$BRK 
89 026210 005301 DEC R1 ; EVERYO.025 SECOND 
026212 003357 BGT POWDLY 
91 026214 INIT2: READEF #EF.START ;HERE FROM START COMMAND? 
026214 012700 000040 MOV #EF .START.RO 
026220 104447 TRAP CS$REFG 
92 026222 BCOMPLETE INIT3 ; JUMP IF NOT 
93 026222 103467 BCS INITS 
3 SET NOT AVAILABLE BITS IN ALL CONTROLLER AND DRIVE TABLES 
ps 026224 013705 002204 MOV CTABS,R5 GET FIRST CONTROLLER TABLE ADDRESS 
98 026230 052765 100000 000002 INITC1: BIS ACT.AVL.C.UNIT(RS) 7SET BIT IN CONTROLLER TABLE 
99 0262 010502 MOV R5,R2 :GET POINTER TO DRIVE TABLES 
100 026240 2702 000020 ADD #C.DRO.R2 
101 026244 012703 000010 MOV #8. ,R3 GET COUNT OF DRIVE TABLES 
102 026250 2200 INITC2: MOV (R2)+,RO :CHECK IF ANY MORE DRIVE TABLES 
103 026252 001405 BEQ INITC 
104 026254 052760 100000 000002 BIS #DT.AVL,D.UNIT(RO) 7SET BIT IN DRIVE TABLE 
105 026262 5303 DEC R3 
106 026264 003371 BGT INITC2 
107 026266 062705 000046 INITC3: ADD #C.SIZE,R5 sMOVE TO NEXT sgl TABLE 
108 026272 005715 TST (R5) 31S THERE A NEX 
+4 026274 001355 BNE INITC1 :1F SO, CLEAR THE BITS THERE 
Be NOW GET EACH P-TABLE AND CLEAR NOT AVAILABLE BITS 
113 CLR R3 START WITH UNIT 0 
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INITIALIZE SECTION 





114 026300 INITC4: GPHARD R3,RO :GET HW P-TABLE 
| 026300 010300 MOV R3,RO 

026302 104442 TRAP C$GPHRD 

115 026304 BNCOMPLETE INITC7 ;GO AROUND IF NOT AVAILABLE 
026304 103030 BCC INITC7 

116 026306 013705 002204 MOV CTABS,RS GET FIRST CONTROLLER TABLE 

117 026312 021015 INITCS: CMP (RO), (R5) ; COMPARE UDA ADDRESSES 

118 026314 001411 BEQ INITCC 

119 026316 062705 000046 ADD #C.SIZE,R5 :LOOK AT NEXT CONTROLLER TABLE 

120 026322 005715 TST (R5) sIF THERE IS ANY 

121 026324 001372 BNE INITCS 

122 026326 ERRSF 1,BADT 
026326 104454 TRAP — CSERSF 
026330 000001 .WORD 1 
026332 003513 ;WORD BADT 
026334 000000 “WORD 0 

123 026336 INITE1: DOCLN 
026336 104444 TRAP CS$DCLN 

124 026340 016001 000010 INITCC: MOV HO. ee? R1 

125 026344 004737 017414 CALL GTDRV 

126 026350 001372 BNE RITE, 

127 026352 042765 100000 000092 INITC6: BIC ACT.AVL,C.UNIT(RS) ;CLEAR BIT IN CONTROLLER TABLE 

128 026360 042764 100000 000002 BIC ADT.AVL,D.UNIT(R4) :CLEAR BIT IN ge TABLE 

129 026366 005203 INITC7: INC R3 ; INCREMENT UNIT NUMBER 

130 026370 023703 002012 CMP L$UNIT,R3 i CHECK IF GOT ALL TABLES 

131 026374 003341 BGT INITC4 s IF NO GO GET ANOTHER 


132 026376 000137 (27412 JMP INI TXX EXIT Te INIT CODE 





yy 
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INITIALIZE SECTION 


SEQ 0152 


1 026402 INIT3: BRESET RESET ALL UNITS 
026402 104433 TRAP CSRESET 
026404 004737 022240 CALL_INITKT INITIALIZE MEMORY MANAGEMENT 
026410 MEMORY FFREE RESET START OF FREE MEMORY 
026410 104431 TRAP CSMEM 
026412 010037 002174 RO, F FREE 

4 026416 017737 153552 002176 MOV @F FREE ,FSIZE sRESET SIZE OF FREE MEMOR 

5 026424 005037 002226 CLR TNUM zs INITIALIZE TEST NUMBER 10 NO TEST RUNNING 

° 026430 012737 000010 002224 MOV #ISTRT,IFLAGS SET START FLAG FOR TEST 4 

: s INITIALIZE CLOCK 

10 000103 KWOUT.=103 DATA TO SEND TO xkwW11 TO START CLOCK 

11 026436 005037 002362 CLR KW.EL :CLEAR ELAPSED TIME 

12 026442 005037 002364 CLR KW.EL+2 

13 026446 CLOCK 1,RO SEE IF AN L CLOCK PRESENT 
026446 012700 000114 | MOV #*. ,RO 
026452 104462 TRAP CSCLiK 

14 026454 BCOMPLETE KYES 
026454 103417 BCS KYES 

15 026456 CLOCK P,RO SEE IF A P CLOCK PRESENT 
0264 012700 000120 MOV #*P,RO 
026462 104462 TRAP CSCLCK 

16 026464 BCOMPLETE KYES 
1264 103413 BCS KYES 

17 026466 005037 002352 CLR KW.CSR 71F NEITHER, CLEAR CSR STORAGE WORD 

18 026472 PRINTF #NOCLOCK 
26472 012746 011044 MOV a -(SP) 
026476 012746 000001 MOV #1,-(SP) 
026502 010600 MOV SP;RO 
026504 104417 TRAP CSPNTF 
026506 062706 000004 ADD #4 ,SP 

19 026512 00044 BR KNO 

20 026514 . 012037 002352 KYES: MOV (RO)+,KW.CSR STORE DATA RETURNED 

21 0265 012037 002354 MOV (ROQ)+,KW.BRL 

22 026524 012037 002356 MOV (RO)+,KW.VEC 

23 026530 012037 2360 MOV (RO)+,KW.HZ 

24 026534 SETVEC KW. VEC,#KW111,KW.BRL SET THE VECTOR 
026534 013746 002354 MOV KW.BRL .~(SP) 
026540 012746 364 MOV #KW111,-(SP) 
026544 013746 002356 MOV KW. VEC ,~(SP) 
026550 012746 MOV #3 ,-( 
026554 104437 TRAP CSSVEC 
026556 062706 00001 ADD #10,SP 
026562 012777 000103 153562 MOV #KWOUT. ,aKW.CSR START THE CLOCK 

26 026570 013702 00236 MOV KW.HZ,R2 z INITIALIZE _— a FIRST 

27 026574 000302 Ss R2 > STATISTICAL R 

28 026576 006302 ASL R2 ; FOR ABOUT 15 MINUTES FROM NOW 

29 026600 006302 ASL a 

30 026602 063702 002362 ADD K R2 

31 026606 013737 002364 002374 MOV KW, “ELSo. STIME+2 

32 026614 010237 002372 MOV R2,STIME 

33 026620 005537 002374 ADC STIME+2 


34 026624 KNO: 





OVONAOUESWH- 


— 


11 
12 
13 
14 
15 026652 
16 
17 
18 
19 


2 
23 026672 


013737 
005077 
005037 


005002 


010200 
104442 


103064 


013703 


002174 002204 
153346 


002204 


000046 


INIT4: 


sSEE IF 


INITS: 


CLR 
CLR CTRLRS 


CLR R2 
GPHARD R2,RO0 
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MOV FFREE,CTABS 
ac TABS 


;GET A P=TABLE FROM DRS 


BNCOMPLETE NXTTAB 


T 
IGNORE IF NO TABLE way"? 


INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 


: STORE START OF CONTROLLER TABLES 
“CLEAR CONTROLLER COUNT 


MARKS END CONTROLLER TABLES 


;LOGICAL UNIT NUMBER in - 
:GET POINTER TO A P-TAB 
tAOV R2,RO 


RAP C$GPHRD 
NXTTAB 


A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P=TABLE 


MOV CTABS,R3 


TST (R3) 
BEQ NEWTAB 


CMP (RO), (R3) 
ASSUME C.UADR EQ 0 
ASSUME HO.UBA EQ 0 


BEQ SAMTAB 


ADD #C.SIZE,R3 


BR INITS 


:GET ADDRESS OF CONTROLLER TABLES 
CHECK IF ANY MORE TABLES 

;BUILD NEW TABLE IF FOUND ZERO WORD 
CHECK IF SAME UNIBUS ADDRESS 


;CHECK TABLE IF ALREADY EXISTS 
sMOVE TO NEXT TABLE 





SEQ 0153 


oases | 
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;BUILD A CONTROLLER TABLE 

3 026674 012701 000023 NEWTAB: MOV #C.SIZE/2,R1 :GET WORDS IN CONTROLLER TABLE 
4 026700 004737 012722 CALL ALOCM sALLOCATE SPACE FOR IT 

5 026704 011021 MOV (RO), mae : STORE UNIBUS ADDRESS 

6 026706 010221 MOV R2,(R1)+ ; UNIT NUMBER 

7 026710 016004 000004 MOV_HO.BRL (RO) ,R4 GET BR LEVEL 

8 026714 000304 SWAB R4 SWAP _TO HI 

9 026716 006104 ROL R4 SHIFT ONE MORE TO LEFT 

10 026720 056004 000002 BIS HO.VEC(RO) ,R4 z;ADD VECTOR ADDRESS 

11 026724 010421 MOV R4,(R1)+ ; TABLE 

12 026726 016021 000006 MOV HO.BST(RO),(R1)+ 
13 026732 012721 004037 MOV #4037,(R1)+ sPUT CJSR RO,UDASRVI 

14 026736 012721 022650 MOV #UDASRV, (R1)+ NTO TABLE 

15 026742 012703 000015 MOV #13.,R3 - HCLEAR POINTERS TO DRIVE TABLES, 
16 026746 005021 INIT7: CLR (R1)+ > TIMEOUT COUNTER, FLAGS, REF. NUMBER 
17 026750 005303 DEC R3 

18 026752 001375 BNE INIT? :;LOOP TIL ALL CLEARED 

19 026754 005237 002206 INC CTRLRS COUNT THE CONTROLLER 


20 026760 005011 CLR (R1) [CLEAR TABLE END MARKER 
21 026762 000417 BR NXTTAB SNOW GO TO NEXT P-TABLE 


SOOCOCCOCO 
Porons 
~N o 


~m 


oO 


OVONAVEWN—"OVDONAUSWR— 
~ 


1 
1 
1 
1 
1 
1 
; 
1 
1 
; 
2 





000004 


000002 
000004 


000006 000006 


027434 


002012 


000001 
012722 
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INITIALIZE SECTION 


;SHOULD BE SAME CONTROLLER, CHECK THAT OTHER PARAMETERS MATCH 


SAMTAB: MOV _HO.BRL (RO) ,R4 
SWAB_R4 


1$: 


sGET NEXT P=TASLE 
NXTTAB: 


ROL R4 
BIS HO.VEC(RO) ,R4 


CMP R4,C 
1$ 


BEQ N 


VEC (R3) 


BN 
CMP a —— -C.BST(R3) 


JMP CTABER 


INC R2 


Ci#P LSUNIT,R2 


BGT INIT4 
MOV #1,R1 


CALL ALOCM 








:GET BR LEVEL avee P=-TABLE 


ADD VECTOR 


RESS 
COMPARE WITH CONTROLLER TABLE 


COMPARE BURST RATES 
FATAL ERROR IF NOT SAME 


; INCREMENT LOGICAL UNIT NUMBER 
: CHECK IF GOT ALL TABLES 
F NOT, GO BACK FOR NEXT 


sALLOCATE SPACE FOR ZERO END WORD 
AFTER CONTROLLER TABLES 














INITIALIZE SECTION 


3 027042 005005 
4 027044 005002 


027046 010200 
027050 104442 


027052 103056 


patie. aR tay 002204 


0. 3 
027064 062703 000046 
0. 000773 
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NOW BUILD DRIVE TABLES 
CLR R5 
CLR R2 

INIT8: GPHARD R2,RO 


BNCOMPLETE INIT14 


FIND CONTROLLER TABLE 


MOV CTABS,R3 
INIT10: CMP (RO), (R3) 
BEQ INIT11 
ADD #C.SIZE,R3 
BR INIT10 





CLEAR CUSTOMER DATA FLAG 
sLOGICAL UNIT NUMBER IN R2 
GET POINTER TO A P=TABLE 
MOV R2,RO 


TRAP 
:I1F NOT AVAILABLE, GO GET NEXT 
BCC INIT14 


GET ADDRESS OF CONTROLLER TABLES 
CHECK IF SAME UNIBUS ADDRESS 
BRANCH IF TABLE FOUND 

:MOVE TO NEXT TABLE 
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INITIALIZE SECTION . 


3 ;BUILD DRIVE TABLE 
3 027072 012701 900103 INIT11: MOV #D.SIZE/2,R1 GET SIZE OF DRIVE TABLE 
4 027076 004737 012722 CALL _ALOCM ;ALLOCATE SPACE FROM FREE MEMORY 
5 ; RO POINTS TO P=TABLE 
6 : R1 POINTS TO DRIVE TABLE 
7 : R3 POINTS TO CONTROLLER TABLE 
8 : ie IS LOGICAL UNIT NUMBER 
9 027102 062703 000020 ADD #C.DRO,R3 sBUILD POINTER TO C.DR ENTRY IN CONTROLLER TABLE 
10 027106 012704 000010 MOV #8. ,R4 GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
11 027112 005713 INIT12: TST (R3) CHECK IF ENTRY CONTAINS POINTER TO DRIVE TABLE 
12 027114 001411 BEQ INIT13 
13 027116 026033 000010 CMP HO.LDR(RO) ,a(R3)+ CHECK DRIVE NUMBER IN DRIVE TABLE 
14 027122 001002 BNE 1$ 
15 027124 000137 027446 JMP MLDRER :1F SAME, TWO P=-TABLES POINT TO SAME DRIVE 
16 027130 005304 1$: DEC R4 ; COUNT DRIVES 
17 027132 001367 BNE INIT12 :IF oan n DRIVE —— EXIST, 
18 027134 000137 027460 JMP TOOMER THEN REPORT ERR 
19 027140 010113 INIT13: MOV R1,(R3) “LOAD DRIVE TABLE POINTER 
20 027142 016021 000010 MOV HO.LDR(RO),(R1)+ [LOAD DRIVE NUMBER 
27 027146 010221 MOV R2,(R1)+ ;LOAD UNIT NUMBER 
22 027150 016011 000012 MOV HO.PRM(RO) ,(R1) sGET TEST AREA BIT 
23 027154 051105 BIS (R1),R5 : SAVE pat OF BIT FROM ALL DRIVES 
24 027156 005111 COM (R1) COMPLIMENT IT 
25 027160 AND HM.CYL,(R1) 
60 042711 157777 BIC esi. CYL>,(R1) 
26 027164 052721 011012 BIS #DDEF ;LOAD DEFAULT PARAMETER BITS 
27 027170 012703 000100 MOV #<D. SiZ6/2-3>, R3 CLEAR REST OF TABLE 
28 027174 005021 INIT3L: CLR (R1) 
29 027176 005303 DEC R3 
30 027200 003375 BGT INIT3L 


31 027202 012761 177777 177754 MOV #-1,<D.ECYL+2=-D.SIZE>(R1) = ;MARK CYLINDERS AT TEST ALL 


















INITIALIZE SECTION 


027210 005202 
027212 023702 
027216 003313 


027220 032705 
001464 


NM —OCVDONOUSWN— 


_— 


027226 012746 
027232 012746 
010600 


027240 104417 


027242 
13 027246 013705 
14 027252 04 
15 027254 
16 027260 012701 
17 027264 012403 
18 027266 
19 027270 032763 
20 027276 001014 
21 300 


027344 104450 
7346 103013 
027350 104443 
000404 
027354 002260 
000120 
005171 
000001 
33 02 032737 
34 027372 001001 
35 027374 


002012 


020000 


007053 
000001 


000004 
002204 


000020 
000010 


020000 
000002 
007165 
000004 


000012 


000046 


000001 
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;GO TO NEXT DRIVE TABLE 


INIT14: 


INC R2 
CMP LSUNIT,R2 
BGT INIT8 


SEQ 0158 


; INCREMENT LOGICAL UNIT NUMBER 
;CHECK IF GOT ALL TABLES 
71F NOT, GET NEXT TABLE 


:1F ANY DRIVE SELECTED FOR EXERCISE IN CUSTOMER DATA AREA 
WARNING 


GIVE 


INITW1: 


INI TW2: 


000004 


BIT #HM.CYL,R5S 
BEQ INIT15 
PRINTF #INITWA 


MOV CTABS,R5 
R5,R4 

ADD #C.DRO,R4 
#8.,R 

MOV (R4)+,R3 

BEQ INI TW 


BIT #D.DCY,D.PRM(R3) 
BNE INITW 
PRINTF #INITWB,D.UNIT(R3),(R5), (R3) 


INITW3: DEC R1 


INI TW4: 


GET CONFIRMATION TO PROCEED 


002260 





BNE INITW2 
ADD #C.SIZE,R5 
TST (R5) 

BNE INITW1 


MANUAL 
BNCOMPLETE INIT15 


GMANIL INITWC,TEMP,1,NO 


BIT #1, TEMP 
BNE INIT15 
DOCLN 


CHECK IF BIT EVER SET 
BYPASS IF NOT 
PRINT WARNING HEADER 
MINITWA,=-(SP) 
MOV #1,-(SP) 


AD 
:GET FIRST CONTROLLER TABLE 
GET ADDRESS OF POINTER TO DRIVE TABLE 


:GET COUNT OF DRIVE TABLES 
GET ADDRESS OF DRIVE TABLE 


CHECK IF CUSTOMER DATA SELECTED 


PRINT NUMBERS 
MOV (R3) ,-(SP) 
MOV (R5) ,~(SP) 
MOV D.UNIT(R3) ,~(SP) 
MOV MINI TWB,-CSP) 
MOV oa 


MOV SP, 
TRAP CSPNTF 
ADD #12,SP 

;COUNT THE DRIVE TABLES 

LOOK AT ALL OF THEM 

[MOVE TO NEXT ty gy ol TABLE 

7SEE IF —e TABLE AND 

; LOOK AT IT 


;CHECK IF MANUAL INTERVENTION ALLOWED 
TRAP CSMANI 


BRANCH IF ALLOWED 
BCC INIT15 


zASK OPERATOR 
TRAP CSGMAN 
BR 10000$ 
-WORD TEMP 
«WORD TSCODE 
- WORD pu re 


0000$: 
;LOOK AT RESPONSE 
BRANCH IF YES WAS ANSWER 
+ ABORT PROGRAM 
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INITIALIZE SECTION 


027374 
37 


38 
39 027376 
rs 027404 


42 027412 


027432 


104444 


013737 
013737 


002174 
002176 
000000 


002412 
023716 


002200 
002202 


;SAVE CURRENT PARAMETERS TO FREE MEMORY SO EACH TEST CAN USE ALL OF IT 


SAVE START ADDRESS 
:SAVE SIZE 


INIT15: 


INI TXX: 


KPRI: 


MOV FFREE,FMEM 
MOV FSIZE,FMEMS 


SETPRI #PRIOO 


CLR DLL 
CALL CLOSEF 
EXIT iNIT 


TRAP CSDCLN- 


SET RUNNING PRIORITY TO ZERO 
MOV 


ee CS$SPRI 
ERASE DOWNL INE 


LOAD D 
ZMAKE SURE DATA FILE Is CLoseD 
TRAP CSEXIT 


SEQ 0159 


«WORD 110027-. 





027466 
12 027470 
027470 


14 

15 027472 
027472 

027472 





104454 
000001 
000000 
012612 
104444 
104454 
000001 
003370 
000000 


104444 


104454 
090001 
003431 
000000 


104444 
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INITIALIZE SECTION 


;DIFFERENT VECTORS, BR LEVELS OR BURST RATES FOR ONE CONTROLLER 


CTABER: ERRSF 1,,CTABE 


DOCLN 


;TWO P=TABLES FOR SAME DRIVE 
MLDRER: ERRSF 1,MLDREM 


DOCLN 


sMORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER 
TOOMER: ERRSF 1,TOOMEM 


DOCLN 


ENDINIT 


L10027: 


— 
TOOMEM 
0 


CSDCLN 


CSINIT 
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AUTODROP SECTION 
i .SBTTL AUTODROP SECTION 
3 soe 
4 : THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
5 ; THE "‘ADR’’ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
- > SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
i ; DROPPED FROM TESTING. 
9 ° 
10 027474 BGNAUTO 
17 027s? LSAUTO: : 
18 027474 ENDAUTU 
027474 110030: 
027474 104461 


TRAP C$AUTO 


a | 
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ey 


CZUDCAO UDA AND DRIVE 
CLEANUP CODING SECTION 
> -SBTTL CLEANUP CODING SECTION 
3 se 
4 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
: ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
? ° 
8 027476 BGNCLN 
| 027476 LSCLEAN:: 
30 02750 
027502 L10031: 
027502 104412 TRAP CSCLEAN 
04 ENDMOD 


9 
18 027476 004737 023716 CALL CLOSEF sCLOSE DATA FILE 
2 ENDCLN 
- SBTTL 

| 





————- 
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| } :. TITLE HARDWARE TESTS (5) 
19 .SBTTL TEST 1: UNIBUS ADDRESSING TEST 
| 16 02750< BGNMOD 
18 027504 BGNTST 
027504 Tl:: 
19 027504 012701 000001 MOV #1,R1 : INITIALIZE TEST PARAMETERS 
20 027510 004737 013006 CALL TINIT 
21 027514 013737 002204 002210 MOV CTABS,,TSTTAB : GET ADDRESS OF FIRST CONTROLLER TABLE 
22 027522 013705 002210 TINEXT: MOV TSTTAB,RS > GET CONTROLLER TABLE ADDRESS 
23 027526 016537 000002 002074 MOV C.UNIT(R5),L$LUN * CHECK IF UNIT AVAILABLE FOR TESTING 
24 027534 100504 BMI TISKIP * SKIP TESTING IF NOT AVAILABLE 
35 027536 ASSUME CT.AVL EQ BIT15 
27 027536 004737 024414 CALL RESET : RESET ALL UNITS 
28 027542 BGNSUB; 1 
027542 11.1: 
027542 104402 TRAP —_ C$BSUB 
29 027544 005037 002366 CLR NXMAD :CLEAR MEMORY ERROR FLAG 
30 027550 SETVEC #4,4NXMI ,#PRIO7 
027550 012746 000340 MOV #PRIO7,-(SP) 
027554 012746 022640 MOV #NXMI,-(SP) 
027560 012746 000004 MOV #4,-(SP) 
027564 012746 000003 MOV #3,-(SP) 
027570 104437 TRAP  C$SVEC 
027572 062706 000010 ADD #10,SP 
31 027576 011504 MOV (R5),R4 :GET ADDRESS OF UDAIP REGISTER 
| 32 027600 005714 TST (R4) ;READ UDAIP 
33 027602 005764 000002 TST 2(R4) [READ UDASA 
34 027606 CLRVEC #4 :GIVE UP VECTOR 
027606 012700 000004 : MOV #4,RO 
027612 104436 TRAP — CSCVEC 
35 027614 005737 002366 TST NXMAD Z CHECK FLAG 
% 027620 001405 BEQ T 
37 027622 ERRDF "sve °. INTRG 
027622 104455 TRAP — CSERDF 
027624 000025 .WORD 217 
027626 000000 “WORD 0 
027630 012154 “WORD  INTR4 
38 027632 000445 BR T1SKIP :DON'T TEST ANY MORE 
39 027634 T1GOOD: 
40 027634 ENDSUB 
027634 L 10033: 
027634 104403 TRAP  C$ESUB 
41 027636 BGNSUB; 2 
027636 11.2: 
027636 104402 TRAP _ C$8SUB 
42 027640 004737 027764 CALL —-PORTST : DIAGNOSTIC LOOP MODE TESTING 
43 027644 ENDSUB 
027644 110034: 
027644 104403 TRAP CSESUB 
44 027646 BGNSUB; 3 
027646 71.3: 
7646 104402 TRAP — C$8SUB 


02 
45 027650 004737 030234 CALL INTEST : TEST INTERRUPTS 





—— -——— --—-- 


ea a 


I 13 
CAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL-81 15:14:57 PAGE 112-1 


1: UNIBUS ADDRESSING TEST 


46 027654 
654 


027 

51 027670 
027670 
027670 


52 027672 
3 027676 


55 

56 027702 
027702 
027702 

57 027704 
027704 
027704 

58 027706 
027706 

59 027712 

027712 


027744 


104403 


104402 
005004 
004737 


104402 
013746 
013746 
012701 
004737 
001402 
004737 
012637 
012637 


104403 


022742 


132000 
022742 


002174 
002176 
000001 
013134 
013224 
002176 
002174 


ENDSUB 
BGNSUB; 4 
CLR R4 
CALL UDAINT 
ENDSUB 
BGNSUB; 5 
MOV #132000,R4 
CALL UDAINT 
ENDSUB 
BGNSUB; 6 
PUSH FFREE 
MOV FFREE,-(SP) 
PUSH FSIZE 
MOV FSIZE,-(SP> 
MOV #1,R1 
CALL R 
BEQ 1$ 
CALL RESPDM 
i$: POP FSIZE 
“04 (SP)+,FSIZE 
POP REE 
Mov (SP)+, FFREE 
ENDSUB 





SEQ 0164 


L10035: 
TRAP C$E SUB 


71.4: 
TRAP C$8SUB 
; INITIALIZE UDA WITH SMALLEST 
; RING BUFFER AND INTERRUPTS DISABLED 


L10036: 
TRAP CSESUB 


11.5: 
TRAP C$8SUB 
INITIALIZE UDA WITH RING BUFFER LARGE 
ENOUGH TO COVER NORMAL HOST COMM AREA 
PACKET AND BUFFER SPACE (A 5 IN MES 
LENGTH AND A 5 IN CMD LENGTH) 


L10037: 
TRAP C$ESUB 


71.6: 
TRAP C$8SUB 
3; SAVE FREE MEMORY PARAMETERS 


; RUN DM PROGRAM IN 
; ONE CONTROLLER ONLY 


L10040: 
TRAP C$ESUB 


. 
J 13 
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TEST 1: UNIBUS ADDRESSING TEST 


1 027746 062737 000046 002210 TISKIP: ADD WC. SIZE, TSTTAB ; MOVE TO NEXT CONTROLLER 
027754 005777 152230 1ST a@TSTTAB ; CHECK IF ANOTHER CONTROLLER TABLE 
p 027760 001260 BNE TINEXT 
5 027762 TIERR: 
6 027762 ENDTST 
027762 110032: 


027762 104401 TRAP CSETST 
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1: UNIBUS ADDRESSING TEST 


TEST 


NOUSWWN—ODOONAMUSWH— 


35 030134 


004000 
023514 
000002 
140000 
030136 


140000 


000001 
000020 
000002 
000002 
030136 


000002 


023652 


030232 
000002 


000002 


030232 


PORTST: 


4$: 
1$: 


2$: 


3$: 


TEST THE DIAGNOSTIC LOOP MODE OF ALL UDA'S ON THE SYSTEM 
; R4& POINTS TO UDAIP REGISTER 


(R5) ,R4 
ASSUME C.UADR EQ 0 
R4) 


( 
#SA.S1,UDARSD 
UDARSP 

3$ 

2(R4) ,WCHNGD 
#140000, 2(R4) 


S$ 
#140000,2(R4) 
58,LOOP02,LOOPA 


3$ 

#1,R2 

#16. ,R3 
2(R4) ,WCHNGD 
R2,2(R4) 
WCHNG 

3$ 

Caan 


57,L00P02,LO0P 





INITIALIZE THE UDA 
LOOK FOR STEP 1 
WAIT FOR RESPONSE 
IF ERROR, BRANCH 
MOVE OLD ik CONTENTS TO STORAGE 
INITIALIZE FOR PORT WRAP 
WAIT FOR THE PORT TO CHANGE 

IF ERROR, BRANCH 
COMPARE WITH DATA WRITTEN 
IF NO ERROR, BRANCH 
REPORT ERROR 
TRAP CSERDF 

D 58 


WOR 
-WORD LOOPO2 


«WORD LOOPA 
EXIT, REPORTING ERROR To CALLING ROUTINE 
SET UP FOR SHIFTING ‘1° 
SET UP LOOP COUNT 
SAVE OLD PORT CONTENTS 
WRITE PATTERN TO UDASA FOR LOOP 
WAIT FOR UDASA TO CHANGE 
IF ERROR, BRANCH 
COMPARE RO WITH WHAT WAS ECHOED 
IF MATCH, BRANCH 
REPORT ERROR 
TRAP gsenor 
-WORD LOOPO2 
-WORD LOOP 
BRANCH 
MOVE THE SHIFTING ONE LEFT BY 1 
DECREMENT COUNT 
IF LOOP yp at ie BRANCH 


RETURN TO TEST 1 CODE 


SEQ 0166 


NE > 
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: UNIBUS ADDRESSING TEST 


} ;WCHNG 

i ; WAIT UNTIL UDASA CHANGES FROM WHAT IS IN WCHNGD 

5 030136 012700 000012 WCHNG: MOV #10.,R0 ;SET TIMEOUT FOR 10 SECONDS 

6 030142 010501 MOV R5,R1 :POINT TO CONTROLLER TABL: 

7 030144. 062701 000040 ADD "a TO,R1 

8 030150 004737 022660 CALL SETTO 

9 030154 026437 000002 030232 1$: CMP otRa) wWCHNGD sSEE IF CHANGED 

10 030162 001022 BNE 2$ 

11 030164 BREAK 
030164 104422 TRAP C$BRK 

12 030166 005737 002352 TST KW.CSR ;SEE IF CLOCK ON SYSTEM 

13 030172 001770 BEQ 1$ 

14 030174 023765 002364 000042 CMP KW.EL+2,C.TOH(R5S) sCHECK IF TIME OUT OCCURRED 

15 030202 101005 BHI 3$ 

16 030204 001363 BNE 1$ 

17 030206 023765 002362 000040 CMP KW.EL,C.TOC(RS) 

18 030214 103757 BLO 1 

19 030216 3$: ERRDF 56,LO0P01 : REPORT ERROR 
030216 104455 TRAP CSERDF 
030220 000070 -WORD 56 
030222 004715 -WORD  LOOPO1 
030224 000000 -WORD 0O 

20 030226 000264 ; SEZ ; FLAG AS ERROR 

si 030230 000207 z$: RETURN ; RETURN TO CALLING PROGRAM 


23 
24 030232 WCHNGD : 





-BLKW 1 ; OLD PORT CONTENTS 





SEQ 0167 


a SS Ss se 
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TEST 1: UNIBUS ADDRESSING TEST 


J 030234 INTEST: 

? : TEST THE INTERRUPTS VECTOR AND BR LEVEL 

5 030234 011504 MOV (R5) ,R4 ; R4& POINTS TO UDAIP REGISTER 

6 030236 ASSUME C.UADR EQ 0 

70 016503 000004 MOV C.VEC(RS) ,R3 ; GET VECTOR AND BRANCH LEVEL 

8 030242 010302 MOV R3,Re ; COPY TO R2 FOR BR LEVEL 

9 030244 042703 177000 BIC #ACCT.VEC,R3 ; CLEAR UNUSED VECTOR BITS 

10 030250 042702 170777 BIC #*CCT.BRL,R2 ; CLEAR UNUSED BRANCH LEVEL BITS 

11 030254 012701 000011 MOV #9. ,R1 ; SET UP TO SHIFT BR LEVEL 

12 030260 006202 1$: ASR R2 ; SHIFT BY ONE BIT 

13 030262 005301 DEC R1 ; COUNT SHIFTS 

14 030264 001375 BNE 1$ : IF INCOMPLETE, BRANCH 

15 030266 010237 9030706 MOV R2,BRLEV > SAVE THE BRANCH LEVEL 

16 030272 PRINTF #INTSTO,C.UADR(R5),R3  ; PRINT BEGINNING OF a ME SSAGE 
030272 010346 R3,-(SP) 
030274 016546 000000 MOV C.UADR(R5) ,-(SP) 
030300 012746 006672 MOV #INTSTO,=(SP) 

012746 000003 MOV #3,-(SP) 

030310 010600 MOV SP,RO 
030312 104417 TRAP CSPNTF 
030314 062706 000010 ADD #10,SP 

17 030320 SETVEC R3,A4INTSRV,#PRIOO ; SET UP INTERRUPT ROUTINE 
030320 012746 000000 MOV #PRIO0,-(SP) 
030324 012746 024406 MOV MINTSRV,~(SP) 
030330 010346 MOV R3,-(SP) 
030332 012746 000003 MOY #3,-(SP) 
030336 104437 * TRAP CS$SVEC 
030340 062706 000010 ADD #10,SP 

18 030344 SETPRI #PRIOO ; SET PRIORITY TO 0 TO CHECK INTERRUPTS 
030344 012700 000000 MOV #PRI00,RO 
030350 104441 TRAP CS$SPRI 

19 030352 006203 ASR R3 ; DIVIDE VECTOR BY 4 FOR UDA INITIALIZATION 

20 030354 006203 ASR R3 ; DIVIDE VECTOR BY 4 FOR UDA INITIALIZATION 

21 030356 052703 104600 BIS #104600,R3 : i. OTHER BITS FOR UDA INITIALIZATION 

22 030362 005037 002236 CLR INTRCV : FLAG AS NO INTERRUPTS RECEIVED 

23 030366 005014 CLR (R4) : INIT UDA 

24 030370 012737 004000 023652 MOV #SA.S1 ,UDARSD ; LOOK FOR STEP 1 COMPLETION 

25.030376 004737 023514 CALL UDARSP ; WAIT FOR COMPLETION 

26 030402 010364 000002 MOV R3,2(R4) ; MOVE STEP 1 DATA TO UDA 

27 030406 012700 000012 MOV #10.,R0 SET UP TIMEOUT OF 10 SECONDS 

28 030412 010501 MOV RS,R1 
030414 062701 000040 ADD #C.10,R1 :POINT TO CONTROLLER TABLE 

30 030420 004737 022660 CALL SETTO 

31 030424 005737 002236 9$: TST INTRCV :; SEE IF INTERRUPTED 

32 030430 001022 BNE 11$ ; IF SO, EVERYTHING'S OK, SO BRANCH 

33 030432 BREAK 
030432 104422 TRAP C$BRK 

34 030434 005737 002352 TST KW.CSR SEE IF CLOCK ON SYSTEM 

35 030440 001771 BEQ 9$ 

36 030442 023765 002364 000042 CMP KW.EL+2,C.TOH(R5) SEE IF TIME ELAPSED 

37 030450 101005 ; BHI 3$ 

38 030452 001364 BNE 9$ 

39 030454 023765 002362 000040 CMP KW.EL.C.TO(RS) 

40 030462 103760 9$ 


BLO 
41 030464 3$: ERRDF 59, INTST4 ; REPORT NO INTERRUPTS ERROR 
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TEST 1: UNIBUS ADDRESSING TEST 


030464 104455 
000073 
030470 005124 
000000 


49 030524 01270: 
50 0305 


0305 010146 
51 030532 012702 
52 0305 0063 


104441 


Senens 012700 


012746 
030632 012746 

30636 010600 
030640 104417 

0642 062706 
70 030646 016503 
71 030652 042703 
010300 


002236 
000340 


000002 
000144 


000007 


000005 - 


002236 


000000 


030706 


006771 
00001 


11$: 


12$: 


2$: 


10$: 


4$: 


5$: 


BR 
CLR 
SETPRI 


BR 
PRINTF 


MOV 
BIC 
CLRVEC 


6$ 
INTRCV 
#PRI07 


DR—D 
=i 


MOV R1,-(SP) 
: - R2 


10$ 
R1 


R1 

MOV (SP)+,R1 
INTRCV 

4$ 


R1 
3s - 
59, INTST4 


6$ 

#PRI00 

R1 

sail 

60, INTST2, INTERR 


eek 
#INTSTI 


C.VEC(R5S) ,R3 
#ACCT.VEC.R3 
R3 


Bae te Be 


SEQ 0169 


BRANCH 
FLAG AS NO_ INTERRUPTS RECEIVED 


SET PRIORITY AS epg ccs * 


TRAP 
; WRITE SECOND STEP TO UDA 
SET UP DELAY SO WE KNOW WE'RE INTERRUPTED 


DECREMENT COUNT 
IF INCOMPLETE, 


BRANCH 
R1 IS PROCESS PRIORITY LEVEL 


SAVE PRIORITY 


SET UP FOR SHIFTING PRIORITY 


SHIFT PRIORITY 

DECREMENT SHIFT COUNT 

IF_ INCOMPLETE, BRANCH 

SET RUNNING PRIORITY TO R1 
MOV 
TRAP 


; RESTORE R1 
; SEE IF INTERRUPT RECEIVED 
IF CH 


so, 
DECREMENT PRIORITY LEVEL 


#PRI07,RO 
C$SPRI 


C$SPRI 


IF ALL LEVELS UNTESTED, BRANCH 


REPORT NO INTERRUPTS ERROR 
TRAP 


«WORD 
«WORD 
- WORD 
BRANCH 
SET RUNNING PRIORITY TO 0 
MOV 
TRAP 


; SO PRIORITY = BR LEVEL 
; SEE IF BR _— MATCHES PRIORITY 


; IF SO, BRAN 

REPORT ERROR 
TRAP 
- WORD 
- WORD 
- WORD 

PRINT TESTING COMPLETED 
MOV 
MOV 
MOV 
TRAP 
ADD 

GET VECTOR ADDRESS 

CLEAR UNUSED BITS 

CLEAR VECTOR 
MOV 


CSERDF 
59 
INTST4 
0 


#PRIO0,RO 
C$SPRI 


CSERDF 

60 

INTST2 
INTERR 
#INTST1,-(SP) 
ate (SPJ 


CSPNTF 
#4 SP 


R3,RO 


| 
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TEST 1: UNIBUS ADDRESSING TEST 


030660 104436 TRAP CECVEC 
73 030662 000244 CLZ ; FLAG AS_NO ERRORS 
74 030664 000207 RETURN ; RETURN TO TEST 1 
75 030666 016503 000004 6$: MOV C.VEC(R5) ,R3 ; GET VECTOR ADDRESS 
76 030672 042703 177000 BIC A#*CCT.VEC,R3 ; CLEAR UNUSED BITS 
77 030676 CLRVEC R& ; CLEAR VECTOR 
030676 010300 MOV R3,RO 
0307 104436 - TRAP CSCVEC 
78 030702 000264 SEZ 3; FLAG AS ERROR OCCURRED 
je 030704 000207 RETURN ; RETURN TO TEST 1 


; WORD FOR BRANCH LEVEL STORAGE 





ee 
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TEST 2: DISK RESIDENT DIAGNOSTIC TEST 


-SBTTL TEST 2: DISK RESIDENT DIAGNOSTIC TEST 
3 Sele BGNTST 
‘ 030710 T2:: 
» 030710 012701 000002 MOV #2,R1 INIT TEST PARAMETERS 
§ O30r 12 004737 013006 CALL TINIT 
4 030720 013737 002204 002210 MOV CTABS,TSTTAB GET POINTER TO FIRST CONTROLLER TABLE 
10 030726 004737 024414 T2NEXT: CALL RESET RESET ALL UNITS 
11 030732 PUSH FFREE SAVE FREE MEMORY PARAMETERS 
030732 013746 002174 MOV FFREE,-(SP) 
s PUSH FSIZE 
030736 013746 002176 MOV FSIZE,-(SP) 
13 030742 012701 000001 MOV #1,R1 ;RUN_DM PROGRAM IN 
14 030746 004737 013134 CALL_RUNDM ; ONE CONTROLLER ONLY 
15 030752 001402 BEQ 1$ 
16 030754 004737 013224 CALL_RESPDM 
17 030760 1$: POP FSIZE 
030760 012637 002176 MOV (SP)+,FSIZE 
18 030764 POP FFREE 
19 030764 012637 002174 MOV (SP)+,FFREE 
20 030770 062737 000046 002210 ADD #C.SIZE,TSTTAB ;MOVE TO NEXT CONTROLLER 
21 030776 005777 151206 TST @TSTTAB CHECK IF ANY MORE CONTROLLER TABLES 
$6 031002 001351 BNE T2NEXT 
24 031004 ENDTST 
031004 L10041: 


031004 104401 | TRAP CSETST 








012701 
004737 


12 

16 013737 

24 013701 
004737 

001402 

004737 


FW —OWONAUSF Wh 
hubabahubabah aba aba 


_ 2) -— 2 
OOCCOCOCOo CO OO 
wietetetectectye WWA WW 


Ww 
_ 


104401 


oOo 
Ww 
— 
R 
—m 


T 


000003 
013006 


002204 
06 


0022 
013134 
013224 


002210 
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-SBTTL TEST 3: DISK FUNCTION TEST 


BGNTST 
T3:: 
MOV #3,R1 ; INITIALIZE TEST PARAMETERS 
CALL TINIT 
MOV CTABS,TSTTAB :GET FIRST TABLE ADDRESS 
MOV CTRLRS,R1 ;RUN DM PROGRAM ON ALL CONTROLLERS 
CALL RUNDM : AT ONCE 
BEQ 1$ 
CALL RESPDM 
ENDTST 


110042: 
TRAP CSETST 
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DISK EXERC] 


, .SBTTL TEST 4: DISK EXERCISER 
3 031044 BGNTST 
‘ 031044 T4:: 
5 031044 022737 000004 002226 CMP #4, TNUM + CHECK IF TEST 4 WAS IN PROGRESS 
6 031052 001066 BNE T4STRT ANCH IF NOT 
7 031054 022737 000002 002224 CMP #ICONT,IFLAGS = CHECK IF a BY CONTINUE COMMAND 
8 031062 001062 BNE T4STRT BRANCH IF 
9 031064 005037 002224 CLR IFLAGS ; CLEAR FLAGS. for NEXT TIME HERE 
10 031070 013704 002404 MOV LBUFS,R4 :GET LOG oe POINTER 
11 031074 001433 BEQ LOGCHK IF ZERO, NONE EXISTS 
12 031076 PRINTF #LOGM1 + INTRODUCE “ERROR LOG 
031076 012746 011640 MOV #LOGM1 ,-(SP) 
031102 012746 000001 MOV #1,-(SP) 
031106 010600 MOV SP,RO 
031110 104417 TRAP CSPNTF 
031112 062706 000004 ADD #4 SP 
13 031116 005037 002404 CLR LBUFS ;CLEAR START ADDRESS TO ERASE BUFFER 
14 031122 012405 LOGOUT: MOV (R4)+,R5 GET CONTROLLER TABLE ADDRESS 
15 031124 004737 020746 CALL PNTERR sPRINT ERROR REPORT 
16 031130 062704 000072 ADD #<HC.BSZ-2>,R4 ; BUMP ows La. NEXT ENTRY 
17 031134 020437 002406 CMP R4,LBUFN ;CHECK IF AT END 
18 031140 103770 BLO LOGOUT *PRINT ALL ENTRIES 
19 031142 PRINTF #LOGM2 | 
031142 012746 011675 MOV #LOGM2 ,- (SP) 
031146 012746 000001 MOV #1,-(SP) 
031152 010600 MOV SP ,RO | 
031154 104417 TRAP CSPNTF 
031156 062706 000004 ADD #4 SP 
$0 031162 000414 BR T4CON 
' 
22 031164 032737 001000 002160 LOGCHK: BIT #SM.LOG,SFPTBL+SO.BIT >CHECK IF LOG ENABLED 
23 031172 001410 BEQ T4CON | 
4 031174 PRINTF #LOGM3 ;REPORT LOG EMPTY 
031174 012746 011724 MOV #LOGM3 ,-(SP) 
031200 012746 000001 MOV #1,-(SP) 
031204 0106C0 MOV SP ,RO 
031206 104417 TRAP CSPNTF 
031210 062706 000004 ADD #4,SP 
25 031214 005737 002232 T4CON: TST URNING ;CHECK IF ANY CONTROLLERS STILL RUNNING 
26 031220 001403 BEQ T4STRT [RESTART IF NOT 
27 031c22 004737 013224 CALL RESPDM : CONTINUE BY RESPONDING TO REQUESTS 
s 031226 000572 BR T4WAIT SEND OF TEST WHEN DONE 
31 sSTART TEST 4 
32 031230 032737 000014 002224 T4STRT: BIT AISTRI+IREST,IFLAGS sHERE FROM OPERATOR COMMAND? | 
33 031236 001543 BEQ T4RUN :RUN WITH PREVIOUS PARAMETERS IF NEW PASS 
1240 000200 002160 BIT #4SM.MAN,SFPTBL+SO.BIT *MANUAL INTERVENTION MODE? 
BEQ T4DEF ;IF NOT, SET UP DEFAULT PARAMETERS 
MANUAL sMANUAL INTERVENTION ALLOWED? 
TRAP CSMANI 
BNCOMPLETE T4DEFW sIF NOT, GIVE WARNING 
BCC TODEF W 


; INPUT PARAMETERS 


CZUDCAO 
TEST 4: 


DI 


40 
41 031254 
4 60 


72 031440 
73 
74 
75 

76 031442 


031442 
031446 


UDA AND D 
SK EX 


DRI 
ERCISER 
5037 002234 
013705 002204 
012702 000010 
010504 
2704 000020 
012403 
00141 
032763 100000 
001010 
737 031636 
BSfons 000020 
005237 002234 
005302 
136 
062705 000046 
005715 
001347 
005737 002234 
001475 
104443 
0004 
002310 
52 
472 
177777 
000001 
000020 
013701 002310 
012704 002312 
011437 002260 
104443 
000406 
002260 
32 
535 
177777 
000001 
177777 
013724 002260 
005301 
001362 
42 
012746 007212 
012746 000001 





000002 


000006 





14 
VE _DIAGNOSTI MACRO-V04.00 23-JUL-81 15:14:57 PAGE 119-1 


UCNT 


SEQ 0174 


;CLEAR COUNT OF UNITS ne PATTERN 16 


Ger FIRST CONTROLLER T 


CSGMAN 
10000$ 
PAT16C 


TSCODE 
? ate 


TSLOL IM 
TSHILIM 


TSLOLIM 
TSHILIM 


#T4WARN,-(SP) 
#1 ,-(SP) 


T4PRM1: MOV #8. ,R2 T COUNT OF DRIVE TABLES 
MOV R5S.R4 “GET FIRST DRIVE TABLE POINTER 
ADD #C.DRO,R4 
TGPRM2: MOV (R4)+,R3 :GET DRIVE TABLE ADDRESS 
BEQ T4PRM4 ‘GO TO NEXT CONTROLLER IF NONE 
BIT #DT.AVL,D.UNIT(R3) ‘SEE IF TO BE TESTED 
BNE T4PRM3 
CALL T4QUEST ZASK QUESTIONS 
CMP #16. ,D.PAT(R3) 
BNE T4PRM3 
INC UCNT 
TGPRM3: DEC R2 = COUNT DRIVE TABLES 
BNE T4PRM2 ‘GO LOOK AT NEXT 
TGPRMG: ADD #C.SIZE.R5 =GO TO NEXT CONTROLLER 
TST (R5) : IF THERE IS ONE 
BNE T4PRMi 
:NOW GET DATA PATTERN 16 IF SELECTED BY ANY DRIVE 
TST UCNT :CHECK IF ANY UNITS USING PAT 16 
BEQ T4RUN ‘IF NONE, DON'T ASK ANY MORE QUESTIONS 
GMANID T4DPC,PAT16C,D,-1,1,16..YES [COUNT OF WORDS 
TRAP 
BR 
~ WORD 
“WORD 
“WORD 
“WORD 
“WORD 
“WORD 
10000$: 
MOV PAT16C.R1 :GET COUNT OF WORDS 
MOV #PAT16W,R4 [GET ADDRESS OF STORAGE 
T4PRM5: MOV (RG), TEMP 
GMANID T4DPD,TEMP,0.-1,1.-1.YES :DATA WORD 
TRAP 
BR 
“WORD 
“WORD 
“WORD 
“WORD 
“WORD 
“WORD 
10001$: 
MOV TEMP, (R4)+ 
DEC R1 = COUNT THE WORDS 
BNE T4PRMS 
BR T4RUN 
GIVE WARNING MANUAL INTERVENTION NOT ALLOWED 
T4DEFW: PRINTF #T4WARN 
MOV 
MOV 


97 031544 


101 031546 


107 031576 
108 031602 


031626 
031630 


—_— — rs - 
_ — 3 od ~~ = 
N One wos 
oO 
Ww 
— 
Oo 
Nm 
N 


~ 


013737 
013701 
004737 
001402 
004737 
032737 
001402 


104422 
000772 
104424 


104432 
001732 


000004 


002204 
000010 
000020 


000004 


157777 
011012 
000067 


000046 


002224 
177757 
000004 
013006 
002204 

06 


0022 
013134 


002224 


002210 


013224 
001000 002160 
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:SET UP DEFAULT PARAMETERS 


T4DEF: 


TGDEFA: 


T4DEFB: 


T4DEFC: 


T4DEFD: 
TSDEFE: 


MOV CTABS,R5 
MOV #8. ,R2 
MO 


AND D.DCY, (R3) 
BIC #*C<D.DCY>, (R3) 
BIS oT a 


R 
BNE T4DEFB 
ADD #C.SIZE.R5 
(R5) 


BNE T4DEFA 


START TEST 4 


T4RUN: 


T4WAIT: 


T4EXIT: 


ROL IFLAGS 
AND ISTRTH,IFLAGS 
BIC #*C<ISTRTH>, IFLAGS 


MOV 44,R1 

CALL TINIT 

MOV CTABS,TSTTAB 
MOV CTRLRS,R1 
CALL _RUNDM 

BEQ T4WAIT 

CALL RESPDM 


BIT rote LOG,SFPTBL+SO.BIT 
BEQ T4EXIT 
BREAK 


BR T4WAIT 


DORPT 
EXIT TST 


SEQ 0175 


;GET FIRST CONTROLLER TABLE 
;GET COUNT OF DRIVE TABLES 
GET FIRST DRIVE TABLE POINTER 


:GET DRIVE TABLE ADDRESS 
:GO TO NEXT CONTROLLER IF NONE 


INITIALIZE ALL PARAMETER BITS 


; COUNT DRIVE -_ 

:GO LOOK AT NEX 

: G0 TO NEXT CONTROLLER 
IF THERE IS ONE 


;CLEAR FLAGS FOR NEXT TIME HERE 
;HOLD START FOR T4UPRM REQUEST 


INITIALIZE TEST PARAMETERS 


;GET FIRST TABLE ADDRESS 


TRAP 
sWAIT TILL STOPPED BY CONTROL C 


:RUN_DM PR 
AT 


OGRAM ON ALL CONTROLLERS 


:CHECK IF LOG IS ENABLED 
EXIT IF NOT 


C$BRK 


sPRINT STATISTICS 


TRAP CSDRPT 
TRAP CSEXIT 
-WORD 110043-. 
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DRIVE 
RCISER 

} ASK TEST 4 MANUAL INTERVENTION QUESTIONS 

3 : INPUTS: 

4 : RS - POINTER TO CONTROLLER. TABLE 

5 : R3 = POINTER TO DRIVE TABLE 

- : R2 AND Ra MUST BE PRESERVED 

? SOUTPUTS: 

8 ; DRIVE TABLE WITH NEW PARAMETERS 

2 : RO AND R1 CONTENTS DESTROYED 

11 031636 T4QUEST:PUSH <R2,R4> 
031636 010246 MOV R2,-(SP) 
031640 010446 MOV R4.-(SP) 

12 031642 PRINTF #T4QHED,D.UNIT(R3),(R5),(R3) sPRINT HEADER 
031642 011346 Mov (R3) ,=(SP) 
031644 011546 MOV (R5) .=(SP) 
031646 016346 000002 MOV ——D. UNI T(R3),-(SP) 
031652 012746 007321 MOV -« #T4QHED,- (SP) 
031656 012746 000004 MOV #4, =(SP) 
031662 010600 MOV _— SPRO 
031664 104417 TRAP —CSPNTF 
031 062706 000012 ADD = #12, SP 

13 031672 016337 000010 002260 MOV D.BB(R3), TEMP 

14 031700 GMANID T4BB,TEMP,D,-1,0,16.,YES ;NUMBER OF BAD BLOCKS 
031700 104443 TRAP — CSGMAN 
031702 000406 BR 10002$ 
031704 002260 -WORD TEMP 
031706 000052 “WORD TSCODE 
031710 003573 “WORD 
031712 177777 “WORD =7 
031714 000000 “WORD TSLOLIM 
031716 000020 “WORD -TSHILIM 
031720 100028: 

15 031720 013763 002260 000010 MOV TEMP .D.BB(R3) 

1 031726 001424 BEQ T4002 

18 031730 010304 MOV R3.R4 GET POINTER TO STORAGE 

19 031732 062704 000012 ADD #D.BB01,R4 ; FOR BAD BLOCKS 

20 031736 015701 002260 MOV TEMP,R1 GET COUNT OF BLOCKS TO INPUT 

22 031742 004737 020126 T4001: CALL BLD28 BUILD DEFAULT ANSWER 

23 031746 GMANID T4BBI,TEMP,A,-1,0,9..YES :BAD BLOCK 
031746 104443 TRAP  C$GMAN 
031750 000406 BR 10003$ 
031752 002260 WORD TEMP 
031754 000152 “WORD  TSCODE 
031756 00362 D 
031760 177777 | “WORD =1 
031762 000000 “WORD TSLOLIM 
031764 000011 “WORD © TSHILIM 
031766 100038: 

24 031766 004737 020230 CALL_CNV28 CONVERT TO BINARY 

5 031772 103763 BCS 14001 REPEAT UNTIL RIGHT 

26 031774 005301 DEC R1 :DECREMENT COUNT 

27 031776 001361 BNE 14001 GET ALL NUMBERS 
032000 016337 000004 002260 14002: MOV D.PRM(R3), TEMP GET PARAMETER BITS 


GMANIL T4RO,TEMP,D.RO,YES READ ONLY 


pile meteeeeneenemeerireitirsnteitionenmaasnantsmmnupacineatiaiee 
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TEST 4: DISK EXERCISER 
104442 TRAP —- C$GMAN 

032010 000404 BR 10004$ 
032012 002260 WORD MP 
032014 000130 WORD  TS$CODE 
032016 003632 -WORD  T4RO 
032020 000 -WORD D.RO 
032022 10004$: 

30 032022 032737 004000 002260 BIT #D.RO, TEMP 

31 032030 001056 BNE T4Q 

32 032032 14003: GMANIL T4WO,TEMP,D.WO, YES WRITE ONLY 
032032 104443 TRAP —- C$GMAN 
032034 04 BR 10005$ 
032036 002260 .WORD TEMP 
032040 000130 WORD  TSCODE 
032042 003644 -WORD  T4WO 
032044 002000 -WORD D.WO 
032046 100058: 

33 032046 GMANIL T4WCA,TEMP,D.WCA, YES sCHECK ALL WRITES 
032046 104443 TRAP —- C$GMAN 
032050 000404 BR 10006 
032052 002260 -WORD TEMP 
032054 000130 WORD  TS$CODE 
032056 003657 “WORD  T4WCA 
032060 000004 -WORD D.WCA 
032062 10006$: 
032062 032737 000004 002260 BIT #D.WCA, TEMP CHECK ANSWER 

35 032070 001007 BNE T4004 BRANCH IF YES 

36 032072 GMANIL T4WCR,TEMP,D.WC, YES [RANDOMLY CHECK WRITES 
032072 104443 TRAP — C$GMAN 
032074 000404 BR 10007$ 
032076 002260 -WORD TEMP 
032100 130 WORD  TS$CODE 
032102 003713 WORD T4WCR 
032104 10 -WORD D.WC 
032106 10007$: 

37 032106 BR 14005 

38 032110 052737 000010 002260 14004: BIS #D.WC,TEMP ;BOTH BITS GET SET 

39 032116 013763 002260 000004 14005: MOV TEMP,D.PRM(R3) ;PUT PARAM BITS BACK 

40 032124 016337 000006 002260 MOV D.PAT(R3) , TEMP 

41 032132 GMANID T4DP,TEMP,D,-1,0,16..YES ;DATA PATTERN 
032132 104443 TRAP —- CSGMAN 
032134 000406 BK 100108 
032136 002260 -WORD TEMP 
032140 000052 WORD  TS$CODE 
032142 003754 WORD T4DP 
032144 177777 -WORD 1 
032146 000000 “WORD  TSLOLIM 
032150 000020 “WORD TSHILIM 
032152 100108: 

42 032152 013763 002260 000006 MOV TEMP,D.PAT(R3) 

43 032160 016337 000004 002260 MOV D.PRM(R3) , TEMP ;GET PARAM BITS AGAIN 

44 032166 032737 004000 002260 14006: BIT #D.RO, TEMP BYPASS NEXT 3 IF ONLY WRITING 

45 032174 001010 BNE 14007 

46 032176 032737 002000 002260 BIT #D.WO, TEMP 

47 032204 001404 BEQ 14007 

48 032206 032737 000010 002260 BIT #D.WwC, TEMP 

49 032214 001432 BEQ 14009 


_ 





50 032216 


0 
51 032232 


53 032254 
54 03 


032316 
58 032316 
59 032322 

032 


032336 
60 032336 
61 032342 
62 
63 032350 
64 54 


71 032410 


RCISER 


104443 


005137 


000001 


000002 


002260 


002260 


002260 


000004 


000004 


000004 
002260 


T4007: 


T4008: 
T4Q09: 


14010: 
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TEST 4: DISK EXE 


GMANIL TGECC, TEMP,D.ECC. YES 
GMANIL T4DCA,TEMP,D.DCA, VES 


BIT vad DCA, TEMP 
BNE 14008 
GMANIL TSDCR,TEMP,D.DC, VES 


BR 14Q09 
BIS #D.DC,TEMP 
GMANIL T4RET, TEMP,D.RET, YES 


COM TEMP 
GMANIL T4SEK,TEMP,D.SEQ,YES 


COM TEMP 
MOv TEMP,D.PRM(R3) 


CLR TEMP 


BIT #0. ns D.PRM(R3) 
BEQ 14010 


BR 14011 
BIT yF CYL.D.PRM(R3) 
ae 2 4011 


MOV TEMP 
TST D BEC CRS) 


SEQ 0178 
sENABLE ECC 
TRAP C 
BR 10011$ 
-WORD TEMP 
-WORD TSCODE 
«WORD T4ECC 
«WORD OD.ECC 
10011$ 
;COMPARE ALL DATA 
TRAP C 
BR 10012$ 
-WORD TEMP 
-WORD TS$CODE 
. WORD T4DCA 
«WORD OD.DCA 
10012$: 
; CHECK ANSWER 
;BRANCH IF YES 
;RANDOMLY CHECK WRITES 
TRAP C 
BR 10013$ 
-WORD TEMP 
-WORD TS$CODE 
- WORD T4DCR 
-WORD D.DC 
10013$: 
;BOTH BITS GET SET 
sENABLE RETRIES 
TRAP C 
BR 10014$ 
-WORD TEMP 
~WORD TSCODE 
-WORD TSRET 
-WORD OD.RET 
100148: 
sENABLE SEEKS 
TRAP C 
BR 10015$ 
-WORD TEMP 
-WORD TSCODE 
«WORD T4SEK 
-WORD OD.SEQ 
10015$: 
>; COMPLIMENTED 


see TERRI DEFAULT SELECTION 
F D.BE SET = LOAD 1 


sar B.C CLEAR - LOAD 0 

:I1F D.BEC CONTAINS 0 = LOAD 4 
:IF D.TR SET = LOAD 2 

LOAD 3 


a 


| K 14 


CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23-JUL-81 15:14:57 PAGE 120-3 SEQ 0179 
TEST 4: DISK EXERCISER : 
72 032414 001410 BEQ 14011 
3 032416 005337 002260 DEC TEMP 
74 032422 032763 000020 000004 BIT #D.TR,D.PRM(R3) 
5 032430 001402 BEQ 14011 
76 032432 005337 002260 DEC TEMP 
77 032436 T4Q11: PRINTF #T4OPT1 
032436 012746 007432 MOV #T4OPT1,-(SP) 
032442 012746 000001 MOV #1,-(SP) 
032446 010600 MOV SP RO 
032450 104417 TRAP CSPNTF 
032452 062706 000004 ADD #4,SP 
78 032456 PRINTF #T40PT2 
0324 012746 007460 MOV #T4OPT2,=-(SP) 
032 012746 000001 MOV #1,-(SP) 
932466 010600 MOV SP,RO 
032470 104417 TRAP CSPNTF 
032472 062706 000004 ADD #4,SP 
79 032476 PRINTF #T4OPT3 
032476 012746 007525 MOV A pet -(SP) 
032502 012746 000001 MOV #1,-(SP) 
0 1 MOV SP.RO 
032510 1046417 TRAP CSPNTF 
032512 000004 ADD #4,SP 
80 032516 PRINTF #TGOPTS 
032516 012746 007577 MOV #T4OPT4,-(SP) 
032522 012746 000001 MOV #1.-\<SP) 
032526 010600 MOV SPF 
104417 TRAP CSPNTF 
032532 000004 ADD #4 ,SP 
81 032536 PRINTF #T4OPT5 
032536 012746 007657 MOV — pet fF -(SP) 
032542 012746 000001 MOV #1,-(SP) 
032546 01 MOV SP.RO 
032550 104417 TRAP CSPNTF 
032552 062706 000004 ADD #4,SP 
82 032556 PRINTF #T4OPT6 
032556 012746 007737 MOV ert -(SP) 
032562 012746 000001 MOV #1,-(SP) 
032566 010600 MOV SP.RO 
032570 104417 TRAP CSPNTF 
032572 062706 000004 ADD #4 SP 
83 BS6326 GMANID T40PT7,TEMP,D,-1,0,.4.YES :;WHICH SELECTION LIMITS 
© 2576 104443 TRAP CSGMAN 
( 000406 BR 10016$ 
052602 002260 -WORD TEMP 
.WORD TSCODE 
032606 004176 «WORD T4OPT7 
032610 177777 «WORD -1 
032612 000000 .WORD TSLOLIM 
032614 000004 -WORD TSHILIM 
032616 10016$: 
84 032616 005337 002260 DEC TEMP SET UP D.PRM FROM ANSWER 
85 032622 002004 BGE 14012 :IF O = CLEAR D.BE AND D.CYL 
32624 042763 000440 000004 BIC #D.BE+D.CYL,.D.PRM(R3) 
87 032632 000467 74019 
88 032634 005337 002260 T4012: DEC TEMP :1F 1 


89 032640 002013 BGE 14013 : IF D.BE NOT SET 





; 
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TEST 4: DISK EXERCISER | 


90 032642 032763 000040 000004 BIT #0. Be D.PRM(R3) ; SET D.BE 
91 032650 001060 BNE T : CLEAR D.CYL 
92 032652 052763 000040 000004 BIS a. on. D.PRM(R3) + LOAD 1 IN D.BEC 
93 032660 042763 000400 000004 BIC #D.CYL,D.PRM(R3) : CLEAR BLOCK STORAGE 
9% 032666 000436 BR 1407 
95 032670 042763 000040 000004 14013: BIC #D.BE,D.PRM(R3) IF 2.3 OR 
Py . | 
97 032676 022737 000002 002260 CMP #2, TEMP TIF 4 
98 032704 001006 BNE 14014 + SET D.CYL 
99 032706 052763 000400 000004 BIS #D.CYL,D.PRM(R3) > CLEAR D.BEC 
100 032714 005063 000112 CLR D.BEC(R3) 
101 032720 000434 BR 14019 
102 032722 T4Q14: PUSH D.PRM(R3) r1F 2 OR 3 
032722 016346 000004 MOV D.PRM(R3),-(SP) 
103 032726 052763 000420 000004 BIS #D.CYL+D. TR,D.PRM(R3) : SAVE D.PRM BITS 
104 032734 005337 002260 DEC TEMP + SET D.CYL AND D.TR 
105 032740 100403 BMI 14015 : IF | 
106 032742 042763 000020 000004 BIC #D.TR,D.PRM(R3) : CLEAR D.TR 
107 032750 022663 000004 T4Q15: CMP (SP)+.D.PRM(R3) : IF D.CYL OR D.TR CHANGED OR D.BEC = 0 
108 032754 001003 BNE T4016 
109 032756 005763 000112 TST D.BEC(R3) : LOAD 1 IN D.BEC | 
110 032762 001013 BNE T4019 : CLEAR BLOCK STORAGE 
111 032764 012763 000001 000112 14016: MOV #1,D.BEC(R3) | 
112 032772 010304 T4017: MOV R3.R4 
113 032774 062704 000114 ADD #D.BGN1,R4 
114 033000 012701 000020 MOV #16.,R1 | 
115 033004 005024 T4018: CLR (R4)+ 
116 0 005301 DEC R1 | 
117 033010 001375 BNE 14018 
118 033012 032763 000040 000004 14019: BIT #D.BE,D.PRM(R3) zNOW ASK THE QUESTIONS TO ALLOW THE 
119 033020 001460 BEQ T4022 * NUMBERS TO CHANGE 
120 033022 016337 000112 002260 MOV D.BEC(R3), TEMP 
121 033030 GMANID T4BE,TEMP.D,-1.1,4.YES | ;NUMBER OF B/E SETS 
033030 104443 C$GMAN 
033032 000406 BR 10017$ | 
033034 002260 .WORD TEMP 
033036 000052 “WORD TS$CODE 
033040 004201 “WORD T4BE 
033042 177777 «WORD -=-1 
033044 000001 “WORD TS$LOLIM 
033046 “WORD  TSHILIM 
033050 100178: | 
122 033050 013763 002260 000112 MOV TEMP,D.BEC(R3) 
123 033056 013701 002260 MOV TEMP.R1 :GET COUNT OF SETS 
124 033062 010304 MOV R3,R4 ‘GET POINTER TO STORAGE AREA 
125 033064 062704 000114 ADD #D.BGN1,R4 
126 033070 004737 020126 T4020: CALL BLD28 | 
12 GMANID T4BEG,TEMP,A,-1,0.9.,YES :BEGIN BLOCK 
TRAP CSGMAN | 
06 BR 10020$ 
.WORD TEMP 
152 "WORD  TSCODE 
232 r p 14 | 


“WORD  TSLOLIM | 
.WORD TSHILIM 
10020$: | 


a a RAS ee 





001434 
011437 
104443 
000406 


002260 
000052 


004260 
177777 
000001 
000007 
013714 
012401 
011437 
104443 
000406 
002260 
000052 
004311 
177777 
000000 
000377 


013724 
005301 


001362 
000433 
011437 
104443 


020230 
020126 


020230 


000400 
000112 


000112 
000020 


002260 


002260 
002260 


002260 


002260 


000004 


000004 


T4021: 


T4Q22: 


T4023: 


T4024: 
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XERCISER 


CALL_CNV28 

BCS 14020 

CALL BLD28 

GMANID T4END, TEMP,A,-1,0,9.,YES ;END BLOCK 
TRAP 
BR 
- WORD 
- WORD 
- WORD 
.~WORD 
«WORD 
‘. WORD 

10021$: 

CALL_CNV28 

BCS 14021 

DEC R1 

BNE 14020 


BR 1403 
BIT #D.CYL.D.PRM(R3) 
BEQ 14030 


ADD #D.BEC,R4 

BIT 4D.TR,D.PRM(R3) 
BEQ 14024 

MOV (R4),TEMP 
GMANID T4TRC,TEMP.D,-1,1.7,YES ;NUMBER OF TRACKS 


IF D.CYL CLEAR = ALL DONE 
7: IF D.BEC CLEAR - GO RIGHT TO B/E CYLS 


TRAP 
BR 
- WORD 
«WORD 
- WORD 
- WORD 
- WORD 
- WORD 
10022$: 

MOV TEMP, (R4) 

MOV (R4)+,R1 :GET COUNT OF TRACKS 

MOV (R4),TEMP 

GMANID T4TRAK, TEMP,D,-1,0,255..,YES ; TRACK 
TRAP 
BR 
- WORD 
- WORD 
- WORD 
«WORD 
- WORD 
- WORD 

10023$: 

MOV TEMP, (R4)+ 

DEC R1 

BNE 14023 

BR 14026 

MOV (R4),TEMP 

GMANID T4GRC,TEMP,D,-1,1,7,YES :NUMBER OF GROUPS nan 


SEQ 0181 


TSLOLIM 
TSHILIM 


:LOOK AT D.TR.TO DETERMINE QUESTION 


TSLOLIM 
TSHILIM 


CSGMAN 
10023$ 
TEMP 

TSCODE 
T4TRAK 


TSLOL IM 
TSHILIM 


C$GMAN 





is sss aes essen stems 
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TEST 4: DISK EXERCISER 


033314 000406 BR 10024$ 
033316 002260 -WORD TEMP 
NZ3320 000052 ‘ -WORD TS$CODE 
033322 004317 , «WORD T4GRC 
033324 177777 } «WORD =1 
033326 000001 poe We «WORD TS$LOLIM 
033330 000007 «WORD TS$HILIM 
033332 . 10024$: 

157 033332 013714 002260 MOV TEMP, (R4) 

158 033336 012401 MOV (R4)+,R1 GET COUNT OF GROUPS 

159 033340 011437 002260 T4Q25: MOV (R4), TEMP 

160 033344 GMANID T4GRP,TEMP,D,-1,0,255.,YES ; GROUP 
033344 104443 TRAP C 
033346 000406 BR 10025$ 
033350 002260 -WORD TEMP 
033352 000052 «WORD TSCODE 
033354 004350 «WORD T4GRP 

56 177777 «WORD <=1 

033360 000000 «WORD TS$LOLIM 
033362 000377 «WORD TSHILIM 
033364 10025$: 

161 033364 013724 002260 MOV TEMP, (R4)+ 

162 033370 005301 DEC R1 

163 033372 001362 BNE 14025 

164 033374 016337 000162 002260 14026: MOV D.ECYL+2(R3), TEMP 

165 033402 005137 002260 COM TEMP 

166 033406 GMANIL T4CYL,TEMP,BIT15,YES WISH TO LIMIT CYLINDERS 
033406 104443 T 
033410 04 10026$ 
033412 002260 -WORD TE 
033414 130 -WORD TSCODE 
033416 004356 «WORD T4CYL 
033420 1 «WORD BIT15 
033422 10026$: 

167 033422 005737 002260 TST TEMP 

168 033426 100412 BMI 14027 

169 033430 005063 000154 CLR D.BCYL(R3) 

170 033434 005063 000156 CLR D.BCYL+2(R3) 

171 033440 005063 000160 CLR D.ECYL(R3) 

172 033444 012763 177777 000162 : MOV #=1 D.ECYL+2(R3) 

173 033452 000442 BR 14Q 

174 033454 005763 000162 T4Q27: TST D.ECYL+2(R3) 

175 033460 002002 BGE 14Q27A 

176 033462 005063 000162 CLR D.ECYL+2(R3) 

177 033466 010304 T4Q27A: MOV R3,R4 

178 033470 062704 000154 ADD #D.BCYL.R4 

179 033474 004737 020126. T4028: CALL BLD28 

180 033500 GMANID T4CYLB,TEMP,A,-1,0,9., YES STARTING CYLINDER 
033500 104443 TRAP CSGMAN 
033502 000406 : BR 10027$ 
033504 002260 : -WORD TEMP 
033506 000152 -WORD TSCODE 
033510 004430 «WORD T4CYLB 
033512 177777 «WORD = 
033514 000000 -WORD TSLOLIM 
033516 000011 . -WORD TS$HILIM 


033520 10027$: 





4: DISK EXERCISER 


| B 15 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL-81 15:14:57 PAGE 120-7 
| 


033552 
185 033552 
186 033556 
187 033560 
033560 
033562 
188 033564 
189 033566 
033566 
033566 
190 033570 
191 


000000 
000011 
004737 
103763 
012604 
012602 
000207 


104401 


020230 
020126 


020230 


T4029: 


T4030: 


» SBTTL 


CALL_CNV28 


BCS 14028 


CALL BLD28 
GMANID T4CYLE,TEMP,A,-1,0,9.,YES 


CALL_CNV28 


BCS 14029 


POP <R4,R2> 
MOV (SP)+,R4 
MOV (SP)+,R2 
RETURN 
ENDTST 


ENDMOD 


ENDING CYLINDER 


10030$: 


L10043: 


TRAP 





SEQ 0183 


TSLOLIM 
TSHILIM 


CSETST 
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033570 


033570 
033570 
033572 


000032 


;.TITLE PARAMETER CODING (6) 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


:++ 
THE HARDWARE PARAMETER CODING SECTION yer MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


Bete Ge Be Be Be Ge Se 


SEQ 0184 


«WORD L10044=-L $HARD/2 


BGNHRD 
LSHARD: : 
sFORMAT OF HARDWARE P-TABLE IS AS FOLLOWS: 
HO.UBA == . ; UNIBUS ADDRESS 
HO.VEC == HO.UBA+2 ; UDA VECTOR 
HO.BRL == HO.VEC+2 : BR LEVEL 
HO.BST == HO.BRL +2 ; BURST RATE 
HO.LDR == HO.BST+2 : DRIVE NUMBER 
HO.PRM == HO.LDR+2 ; PROGRAM PARAMETERS 
HM.CYL == ; TEST CUSTOMER DATA AREA 
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MA 
HARDWARE PARAMETER CODING SECTION 


1 033572 GPRMA =H. UBA, HO.UBA,0, 160000, 177774, YES BUS ADDRESS 
033572 000031 «WORD TS$CODE 
033574 033656 «WORD H.UBA 
033576 160000 «WORD TSLOLIM 
03 177774 «WORD TS$HILIM 

2 033602 GPRMA =-H.VEC,HO.VEC,0,4,774, YES ; VECTOR 
033602 001031 «WORD TSCODE 
03 033704 «WORD 4H.VEC 
03 -WORD TS$LOLIM 
033610 000774 «WORD TS$HILIM 

3 033612 GPRMD 4H.BRL,HO.BRL.D,-1,4.,7..,YES ; BR LEVEL 
033612 205 WORD TS$CODE 
033614 033713 «WORD H.BRL 
033616 177777 «WORD <=1 
033620 000004 «WORD TS$LOLIM 
033622 000007 WORD TS$HILIM 

4 033624 GPRMD H.AST,HO.BST,D,.-1,0.,63.,YES ; BURST RATE 
033624 003052 «WORD TSCODE 
033626 033724 «WORD H. 

33630 177777 «WORD -1 

033632 «WORD TSLOLIM 
033634 000077 -WORD TSHILIM 

5 033636 GPRMD H.LDR,HO.LDR,D,-1,0.,255.,YES ; DRIVE SELECT NUMBER 
033636 05 «WORD TSCODE 
033640 033746 -WORD H.LDR 
033642 177777 «WORD -1 
033644 «WORD TSLOLIM 
033646 000377 -WORD TSHILIM 

6 033650 GPRML 4H.CST,HO.PRM,HM.CYL,YES ; USE CUSTOMER DATA AREA 
033650 005130 -WORD TSCODE 
033652 033763 «WORD 4H.CST 
033654 02 «WORD HM.CYL 

7 033656 ENDHRD 

-EVEN 

3 033656 L10044: 

15 033656 125 116 111. H.UBA: .ASCIZ \UNIBUS ADDRESS OF UDA\ 

16 033704 126 105 103 H.VEC: .ASCIZ \VECTOR\ 

17 033713 102 122 040 H.BRL: .ASCIZ \BR EL\ 

18 033724 125 116 111 H.BST: .ASCIZ \UNIBUS BURST RATE\ 

19 033746 104 122 111 H.LDR: .ASCIZ \DRIVE NUMBER\ 

3 033763 105 130 105 H.CST: ey \EXERCISE ON CUSTOMER DATA AREA IN TEST 4\ 

-EV 
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CZUDCAO UDA AND DRIVE DIAGNOSTI MA 
SOF TWARE PARAMETER CODING SECTION 

} .SBTTL SOFTWARE PARAMETER CODING SECTION 

3 r++ 

4 ; THE SOFTWARE PARAMETER CODING SECTION yar MACROS 

5 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

6 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

7 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

2 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR. 

11 1 
12 034034 BGNSF T 

034034 000030 ~WORD L10045-L$SOF T/2 

13 034036 LSSOFT:: 
$s sFORMAT OF SOFTWARE P=-TABLE IS AS FOLLOWS: 
24 000000 SO.EL= 0. ;ERROR LIMIT 

25 000002 SO.XL= 2. :DATA TRANSFER tay (MEGABITS) 
26 000004 SO.BIT= 4. sSINGLE BIT ANSWERS 
27 000200 SM. MAN==B81T07 : MANUAL INTERVENTION MODE 
28 000400 SM. SSF ==BIT08 ; SUPPRESS SOFT ERRORS 

29 601000 SM.LOG==B1T09 ; ERROR LOG ENABLED 

30 040000 SM. IW== BIT14 : INITIAL WRITE 
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SOFTWARE PARAMETER CODING SECTION 


1 034036 GPRML S.MAN,SO.BIT,SM.MAN,YES ;MANUAL INTERVENTION MODE 
034036 002130 «WORD TS$CODE 
034040 034116 «WORD S.MAN 
034042 000200 «WORD SM.MAN 
2 034044 DISPLAY S.MES MESSAGE ON NEXT QUESTIONS 
034044 000003 «WORD TS$CODE 
034046 034203 «WORD S.MES 
3 034050 GPRMD S.EL,SO.EL,D,-1,1..-1.,YES ERROR LIMIT 
034050 000052 «WORD TS$CODE 
034052 034266 «WORD S.EL 
034054 177777 «WORD <-1 
034056 000001 «WORD TSLOLIM 
034060 177777 «WORD TSHILIM 
4 034062 GPRMD S.XL,SO.XL,D,-1,0..-1.,YES ; TRANSFER LIMIT 
034062 001052 -WORD TSCODE 
034064 034302 «WORD = S.XL 
034066 177777 «WORD -1 
034070 000000 «WORD TSLOLIM 
034072 177777 «WORD TSHILIM 
5 034074 GPRML S.SSF,SO.BIT,SM.SSF,YES | ;SUPPRESS SOFT ERRORS 
034074 002130 -WORD TSCODE 
034076 034364 «WORD S.SSF 
034100 000400 «WORD SM.SSF 
6 034102 GPRML S.IW,SO.BIT,SM.IW,YES INITIAL WRITE 
034102 002130 -WORD TSCODE 
034104 034422 «WORD S.IW 
034106 040000 -WORD SM. IW 
7 034110 GPRML S.LOG,SO.BIT.SM.LOG,YES ;ERROR LOG 
034110 002130 -WORD TSCODE 
034112 034454 «WORD S.LOG 
034114 001000 -WORD SM.LOG 
ENDSFT 
- EVEN 


L10045: 


-ASCIZ\ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS\ 
“ie SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY\ 


-BYT 

-ASCIZ\ERROR LIMIT\ 

-ASCIZ\READ TRANSFER LIMIT IN MEGABYTES ~- 0 FOR NO LIMIT\ 
-ASCIZ\SUPPRESS PRINTING BA ERRORS \ 

eASCIZ\DO INITIAL WRITE ON START\ 5 
ees ae ERROR LOG\ 





PATCH AREA 


034476 
000050 


| 


034616 034642 
peaess 000010 


15 034622 
16 
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-SBTTL PATCH AREA 


SPATCH:: 
REPT 40. 
-WORD 0 
-ENDR 


LASTAD 


LSLAST:: 
ENDMOD 
.SBTTL 


EVEN 
«WORD TSFREE 
«WORD TSSIZE 


SEQ 0188 


eS EE era ar oe ere> , a EES 
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| 13 034622 BGNSE TUP 1 
14 034622 BGNPTAB 
034622 000000 «WORD 0 
034624 000006 «WORD 110050-./2=1 
034626 L10046: 
15 034626 172150 «WORD 172150 ; UNIBUS ADDRESS 
16 034630 00U154 «WORD 154 ; VECTOR ADDRESS 
17 034632 000005 -WORD 5. : BR LEVEL 
18 034634 000000 -WORD 0 ; UNIBUS BURST RATE 
19 034636 000000 -WORD 0Q. ; LOGICAL DRIVE NUMBER 
20 034640 000000 -WORD 0 ; CUSTOMER DATA AREA 
21 034642 ENDPTAB 
93464 L10050: 
$e 034642 ENDSE TUP 


»-NLIST SYM 
25 000001 «END 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 29184 WORDS ( 114 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 4 PAGES 
-B:ZUDCAO/C=C20,0ISVC34R.MLB/P:1,B:ZUDCAO.DOC ,B: ZUDCA0 





pp re 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


SPATCH 125-34 
ADR 9-704 
ALOCM 29-164 30-15 93-72 104-4 105-20 107-4 


APRINT 76-144 
APRIZ 76-17 76-198 


ASSEMB 5-16 5-16 
BADT 25-134 101-122 
BITO 9-708 19-25 


9-24 22-40 


BIT10 9-704 19-16 

BIT1i 9-708 19-15 

BIT12 9-708 19-14 

BIT13 9-70 19-13 121-70 

BIT14 9-704 19-12 123-30 

BIT15 sap tos 18-13 19-10 19-27 33-25 49-31 50-23 50-27 51-30 52-45 61-29 99-79 99-87 112-25 
BIT2 9-7 18-22 19-23 22-41 
BITS 9-708 18-23 19-22 22-42 
BIT4 9-708 18-25 19-21 22-43 
BITS 9-704 19-20 

BIT6 9-70# 19-19 

BIT? 9-704 19-27 

BIT8 9-704 19-18 


ae 63-84 120-22 120-126 120-130 120-179 120-183 


BLDCMD 36-10 36-29 68-44 70-17 72-154 


BOE 9-708 
BRLEV 116-15" 116-65 116-844 
CSAU 5-164 
C$AUTO 5-16# 110-18 
C$BRK 5-168 34-4 75-28 86-13 = 8B-27, (93-24 «= 97-10 101-79: 101-88 = 115-11 116-33 119-113 
C$BSEG 5-16# 
5-16# 112-28 9112-41 112-44 112-47, 112-51 -112-57 

CSCEFG 5-16# 
C$CLCK 5-16 102-13 102-15 
CSCLEA 5-16# 111-30 
C$CLOS 5-164 92-12 | 
CSCLP1 5-168 
CSCVEC 5-16 77-36 86-27 112-34 116-72 116-77 
CSOCLN 5-168 28-8 32-21-92 94-4 101-123 108-35 109-3 109-7 109-12 
CSORPT 5-168 34-54 101-75 119-116 

6a 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


CSERDF 


C.DR2 


aeReks 


— 
ce 
on 


AAD ANDINA 
s o © 
aS 


Mun 
~D 


-66 
120-57 
101-114 


33-22" 


68-57* 


68-31 
35-23 


32-20 


34-9 
68-58* 


73-16* 


34-12 
70-278 


73-17 


75-36 
16-67 
36-6 
94-3 


112-50 
12u-189 


93-76 


119-68 
120-121 


27-32 


27-21 
27-74 
41-44 
64-43 
120-77 
99-74 
27-45 


101-91 


116-55 
102-24 


101-100 


34-14 
73-27% 


75-44 
71-3 


101-122 


112=5é 


93-83 
120-14 


120-127 


99-7 
53-21 


107-9 


34-68* 


75-19 


85-18 


109=2 


112-66 
93-89 


120-23 
120-131 


116-17 


108-15 


35-6 


75-40% 


85-37 


109-6 


93-99 
120-29 


120-146 


27-54 


27-27 
67-34 


0-8 
99-107 


56-14 


119-45 


35-30 


86-30 


109=11 


93-102 


120-32 
120-150 


27-59 


99- 
56-43 


119-83 


36-24" 





87-44 


27-63 


56-64 


36-25 


88-36 


27-67 


58-13 


36-32" 


89-5 112=37 
120-41 120-50 
120-166 120-180 

27-71 27-75 

27-52 27-53 

49-34 51-60 
116-16 116-69 

58-20 61-59 

36-35" 49-32e 


SEQ 0191 


114=17 


27-79 
27-57 
51-63 
119-12 


61-69 


51-35 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 





C.RING 18-284 30-17" 34-8 72-16 73-15 
C.SIZE 18-4614 33-29 34-61 99-114 101-107 101-119 103-22 104-3 106-13 «108-24 = 1131 117=20 
C.70 18-374 34-38 36-40 75-14 75-34 88-22 88-33 115-7 115-17 = 116-29 =: 1116=39 
C.TOH 18-38% 34-35 75-31 88-30 115-14 116-36 
C.UADR 18-108 67-34 86-22 99-110 103-19 114-6 116-6 116-16 
C.UNIT 18-114 33-23 34-11 67-14 99-77, 101-98 101-127" 112-23 
C.VEC 18-144 68-28 105-7 116-7 116-70 =116=75 
CALR1 56-71 57-44 
CALR2 = 56-72 58-44 
CF.576 14-394 
CF.ATN 14-344 
CF.MSC 14-354 
CF.OTH 14-364 
CF.SHD 14-384 
84-34 90-104 
90-15 
92-104 93-107 108-44 111-18 
74-168 
120-128 120-132 120-181 120-185 
58-19 
56-115 
99-79 101-98 101-127 112-25 
68-57 70-27 73-27 
34-68 36-24 49-32 51-35 53-16 75-19 75-40 82-20 
35-30 36-25 36-32 36-35 68-57 
34-68 68-58 
116-9 116-71 116-76 
101-96 =101-116 = 103-3* 103-4* 103-15 106-10 108-13 112-21 117-8 118-8 
104-19* 118-9 119-107 
45-25 120-13 120-15* 


119-56 


119-42 


SEQ 0192 


119=95 


119-80 
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CROSS REFERENCE TABLE (CREF VvO1-05 ) 


D.BBOS 19-374 19-38 
D.BB809 19-384 19-39 
D.BB10 19-39% 19-40 
D.BB11 19-40" 19-41 
D:BB12 19-414 19-42 
D:BB13 19-424 19-43 
D.BB14 19-434 19-44 
D.BB15 19-44% 19-45 46-18 
D:BB16 19-454 19-46 
D:BCYL 19-55# 19-56 44-44 44-62 
D.BE 19-20 44-17 44-58 44-70 
D.BEC 19-464 19-47 44-24 44-40 
D.BGN1 19-474 19-48 120-113 120-125 
D:BGN2 19-49% 19-50 
D:BGN3 19-51# 19-52 
D.BGN4 19-534 19-54 
D.CYL 19-184 44-35 120-68 120-86 
D.DC 19-244 19-26 120-54 120-56 
D:DCA 19-25 120-51 120-52 
D:DCY 19-134 108-19 119-87 
D:DRV 19-7# 19-8 99-109 
DECC 19-14# 19-26 120-50 
D-ECCC 19-624 19-63 44-81% 47-18 
D-ECYL 19-56# 19-57 107-31* 120-164 
“END1 19-484 19-49 
D:END2 19-50 19-51 
END3 19-52# 19-53 
“END4 19-54# = 19-55 
D-HERR 19-59% 19-60 44-78%  52-38* 
DiIW 19-12% 19-27 44-14 
D:PAT 19-28 19-29 44-16 119-51 
D-PRM 19-118 19-28 44-8 44-35 
120-90 120-92 120-93" 120-95» 
D.RET 19-17 19-26 120-57 
D:RO  19-15# 120-29 120-3) 120-44 
D:SEEK 19-614 19-62 44-80» 48-15 
D.SEQ 19-19% 120-59 
D.SERN 19-634 19-65 44-5* 44-6 
D.SERR 19-604 19-61 44-79% 47-17 
D:SIZE 19-654 107-3 107-27  107-31* 
D-TR 19-21 120-74 120-103 120-106 
D-UNIT 19-84 19-11 41-42 49-33 
DWC 19-22 19-26 120-36 =: 120-38 
D:WCA 19-234 120-33 120-34 
D:wO 19-164 120-32 120-46 
D.XFRR 19-584 19-59 44-77" 49-22 
D.XFRW 19-57# 19-58 44-76% 49-23 
D.ZERO 19-274 44-9 
EF  19-26# 107-26 119-88 
DFPTBL 7-104 
DIAG 11-334 72-23 
DIAGMC 5-16 5-16 
DIV10 99  99-120# 
DIVIDE 61-39 61-52 62-16# 63-13 
DLL 23-27H 40-37" 40-52 40-53 
DLLADR 23-324 40-47* 40-48% 40-56 
DLLDR 23-29% 40-38 50-30 50-31 


120-169* 120-170* 120-178 


120-64 120-86 120-90 
44-50 120-71 120-100* 
120-93 120-99 120-103 
99-108 

120-171* 120-172* 120-174 
52-39 99-108 

120-40 120-42* 

108-19 119-86 120-28 
120-99* 120-102 120-103* 
99-107 

44-7* 99-90 99-91 
99-108 

120-143 

50-21 53-21 59-29 
120-48 

49-26 99-107 

99-107 

98-18 98-20 98-22 
50-28 108-43* 

40-57 


120-92 120-95 120-118 

120-109 =120-111* 120-120 120-122* 120-139 120-142 
120-137 

120-176* 

120-39* 120-43. 120-61* 120-64 120-68 

120-106* 120-107 120-118 120-137 120-143 


99-92 
99-85 99-88 101-104* 101-128* 108-21 
99-65 99-67 99-69 


120-74 


119-48 


SEQ 0193 


120-86* 


120-12 
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SEQ 0194 

CROSS REFERENCE TABLE (CREF VvO1-05 ) 

DLLNAM 23-34# 40-41% 40-42* 50-31 93-47 93-49 

DLLR 23-314 40-40* 

DLLSIZ 23-334 40-49% 40-54 40-55*  40-56* 

DLLV 23-304 40-39% 

DME 22-334 31-20 32-16* 
22-344 31-21 32-17% 

DMFRST 20-374 93-64 93-74 

DMMAIN 20-364 69-5 69-7 69-30 

DMNF 25-464 32-20 

DMOVRL 20-354 
22-324 =32-13* 8 =§3=25 53-26 57-7 57-8 67-42 67-43 68-42 68-45 68-47 68-48 69-4 69-6 

DMTRLN 20-344 
36-60 54-134 

DSPSIZ 36-4 36-624 

DT.AVL 19-10# 0-23 99-87 101-104 101-128 119-48 

DT.UNT ud 

DUP 11-344 72-20 

ESEND 5-164 

ESLOAD 5-164 5-77 

EF.BBR 14-27# 

EF .BBU 14-284 

EF .CON 70# 101-63 

EF.LOG 14-294 

EF.NEW  9-70# 

-PWR 9-70# 101-69 

EF.RES 9-704 101-66 

EF.SEX 14-304 

EF.STA 9-70 101-91 

ENG 5-478 5-74 8-24 22-50 34-28 68-15 68-49 75-16 75-18 75-23 «123-31 = 124-8 124-28 

ERRBLK 22-214 

ERRC 55-13 55-20 56-1034 

ERRCHR 22-234 41-52* 41-53 41-58* 41-59 56-3* 56-4 56-6 56-13* 56-14 56-63* 56-64 61-58* 61-59 
61-68» -69 65-3* 65-4 65-12* 65-13 65-29* 65-30 

ERRD 55-22 56-1154 

ERRLIM 26-40# 2-44 

ERRMB 926-354 67-34 

ERRMBD 26-364 67-37 

ERRMC 36-58 52-284 

ERRME1 26-384 55-18 56-56 

ERRMES 36-57 51-254 52-29 

ERRMRT 26-37# 98-23 

ERRMSG 22-21# 

ERRMSL 51-39 51-434 

ERRMSX 51-34 51-41 51-61 51-644 

ERRNBR 22-214 

ERRNL 26-214 41-62 56-43 58-13 58-20 98-24 99-71 

ERRONE 26-204 41-53 41-59 56-6 56-14 56-64 61-59 61-69 65-4 65-13 65-30 

ERRRSZ 56-51 56-734 

ERRRTB 56-54 56-714 56-73 

ERRRTN 67-26 67-314 

ERRTYP 22-214 67-20 

EVL 9-704 

F SAU 5-164 

FSAUTO 5-164 110-10 110-18 

F $8GN 5-164 5-43 8-29 9-48 27-14 27-19 27-24 27-30 27-34 27-39 27-5 27-56 27-61 27-65 
27-69 27-73 27-77 27-81 67-31 81-10 82-18 95-5 6-1 98-28 99-38 99-45 100-8 101-8 
108-45 110-10 111-8 111-31 =112-16 12-18 = 112-28 112-28 112-40 112-41 112-4 112-435 112-44 112-44 
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TGCYLE 25-36 120-186 

T4DCA 25=22# 120-51 a 
T4DCR 25-23 120-54 

T4DEF 119-35 119-80 

TODEFA 119-814 119-97 

T4DEFB 119-844 119-94 

T4DEFC 119-90" 119-92 

T4DEFD 119-934 

T4DEFE 119-85  119-95# 

TGDEFW 119-37 119-764 

T4DP_ - 25-20# 120-41 

T4DPC 25-378 119-64 

T4DPD 25-384 119-68 

T4ECC 25-214 120-50 

T4END _25-29H 120-131 

T4EXIT 119-112 119-1168 

T4GRC 25-324 120-156 

T4GRP 25-334 120-160 


T40PT7 25-264 41-66 120-83 


T4PRM1 119-434 119-58 

T4PRM2 119-464 119-55 

T4PRM3S 119-49 8119-52 119-544 

T4PRM4 119-47 119-564 

T4PRMS 119-674 119-71 

T4Q01 120-224 120-25 120-27 

T4Q02 120-16 120-784 

T4Q03 120-324 

T4004 120-35 i2 4 


T4Q07 120-45 120-47 120-504 
T4Q09 120-49 120-55 120-574 
T4Q11 120-67 120-69 120-72 120-75 120-774 


T4016 120-94 120-108 120-1114 


T4018 120-1154 120-117 
T4019 120-87 120-91 120-101 120-110 120-1184 
T4Q20 120-1264 120-129 120-135 


T4024 120-144 120-1554 
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T4Q25 120-1594 120-163 

T4Q26 120-154 120-1644 

T4Q27 120-140 120-168 120-1744 
120-1778 


T4Q27A 120-175 12 

T4Q28 120-1794 120-18 

T4Q29 120-1834 120-186 

T4Q30 120-136 120-138 120-173 120-1874 
TGQHED 26-49% 120-12 

T4QUES 119-50 120-114 

T4RET 25-246 120-57 

T4RO 25-164 120-29 

T4RUN 119-33 119-63 119-72) = 119-1014 
T4SEEK 36- 48-18 


T4STRT 119-6 119-8 119-26 119-324 


T4UPRX 44-33 44-54 44-66 44-764 
T4WAIT 119-28 119-109 119-1114 119-114 


TEMP 22-584 41-66 41-67 63-20 64-18 99-93 99-107 108-32 108-33 119-67* 119-68 119-69 120-13* 120-14 
120-15 120-20 120-23 120-28* 120- 120-30 120-32 120-33 120-34 120-36 120-38* 120-39 120-40* 120-41 
120-42 = 120-43* 120-44 120-46 120-48 120-50 120-51 120-52 120-54 120-56* 120-57 120-58* 120-59 120-60* 
120-61. 120-63* 120-66* 120-70* 120-73* 120-76* 120-83 120-84* 120-88* 120-97 120-104* 120-120* 120-121 120-122 
120-123 120-127 120-131 120-145* 120-146 120-147 120-149* 120-150 120-151 120-155* 120-156 120-157 120-159* 120-160 


120-161 120-164* 120-165* 120-166 120-167 120-180 120-184 
TINIT 31-144 112-20 117-6 118-6 119-104 


TNUM 22-444 31-18 31-26* 51-36 67-32 68-40 99-59 99-72 102-5* 119-5 


TSTTAB a 33-21 34-6 Tl2-21e 12-22 113-1* 115-2 117-8* 117-20* 117-21 118-8*  119-106* 
UCNT 22-474 = 33-20* 335-30" 34-7% 34-62% 119-41* 119-53* 119-62 


UDAID1 86-16* 87-44 87-20 87-29 
UDAID2 86~17*  86-18* 87-64 
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UDAIRC 87-15 87-24 87-32 87-424 
UDAISE 86-32 86-42 86-44 86-524 


UDARS1 88-254 88-29 88-32 88-34 
UDARSD 86-36"  86-45* 86-46 88-19% 88-25 89-16H 114-8* 116-24 
UDARSP 85-24 86-43 88-184 114-9 116-25 

89-4 


UF 

URNING 22-464 33-16% 33-28* 33-35 34-69% 119-25 
URUN 22-454 33-15* 33-20 34-7 

UTOT1 50-194 50-22 50-26 


WAITMS 68-54 70-24 75-118 

WCHNG 114-13 114-23 115-5# 

WCHNGD 114-11" 114-218 115-9 = 115-244 
X$ALWA  5-16M 

X$FALS 5-160 

XSOFFS  5-16# 

X$TRUE 5-16# 





nn 


K 1 
CZUDCAO UDA AND DRIVE DIAGNOSTI MACRO V04.00 23=JUL-81 15:14:57 PAGE M=1 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


-BR 21-314 

68-29 107-25 119-87 119-102 
ASSUME 21-39% 33-25 50-25 99-79 99-87 99-109 99-110 103-19 103-20 112-25 114-6 116-6 
BCOMPL 7o48 101-92 102-14 102-16 


BGNMOD -43 9-48 99-38 112-16 121-39 
BGNMSG 27-14 27-19 27-24 27-30 27-34 27-39 27-51 27-56 27-61 27-65 27-69 27-73 27-77 


95-5 96-1 
BGNSUB ee 112-41 112-44 11247) 112-51) 112-57 
BGNTST 112-18 117-3 118-3 119-3 
BNCOMP 101-64 101-67 101-70 101-115 103-11 106-6 108-31 119-37 
BREAK eel St 86-13 88-27 93-24 97-10 101-79 101-88 115-11 116-33 119-113 
BUILD 56-844 56-103 56-115 
1 102-15 


, 2 
CLRVEC hg 86-27 112-34 116-72 116-77 


94-2 94-4 101-123 108-35 109-3 109-7 109-12 
DORPT 34-54 101-73 119-116 


5 
ENDMOD 8-29 98-28 111-31 120-190 125-15 
ENDMSG ab} 27-22 27-28 27-32 27-37 27-49 27-54 27-59 27-63 27-67 27-71 27-75 27-79 


4 
ENDSRV 81-14 82-22 95-9 96-3 
ENDSUB 112-40) §=112-43) = 112-46) = 1112-50: 1112-56 = 112-66 


ENDTST 113-6 117-24 118-14 = 120-189 
ENTRY 56-97 56-103 56-103 56-103 56-103 56-103 56-103 56-103 56-103 56-1094 56-115 56-115 56-115 
56-115 56-115 56-115 56-115 


9-70 
34-22 34-40 59-24 75-36 75-44 85-18 85-37 86-30 87-44 88-36 89-5 112-37 = 114-17 
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